Page 1 Source Listing CLO89 2014-12-17 20:46 /tmpnwprd/ifortyULbl5.i 1 # 1 "CLO89.F" 2 SUBROUTINE CLO89(CLDFAC,CAMT,NCLDS,KBTM,KTOP) 3 C ************************************************************ 4 C * * 5 C * THIS SUBROUTINE WAS MODIFIED TO BE USED IN THE ETA MODEL * 6 C * * 7 C * Q. ZHAO 95-3-22 * 8 C * * 9 C ************************************************************ 10 C 11 COMMON/PHYCON/AMOLWT,CSUBP,DIFFCTR,G,GRAVDR,O3DIFCTR,P0, 12 * P0XZP2,P0XZP8,P0X2,RADCON,RGAS,RGASSP,SECPDA 13 COMMON/PHYCON/RATCO2MW,RATH2OMW 14 COMMON/PHYCON/RADCON1 15 COMMON/PHYCON/GINV,P0INV,GP0INV 16 COMMON/HCON/HUNDRED,HNINETY,SIXTY,FIFTY,TEN,EIGHT,FIVE, 17 * FOUR,THREE,TWO,ONE,HAF,QUARTR,ZERO 18 COMMON/HCON/H83E26,H71E26,H1E15,H1E13,H1E11,H1E8,H4E5, 19 * H165E5,H5725E4,H488E4,H1E4,H24E3,H20788E3, 20 * H2075E3,H1224E3,H5E2,H3082E2,H3E2,H2945E2, 21 * H23E2,H15E2,H35E1,H3P6,H181E1,H18E1,H2P9,H2P8, 22 * H2P5,H1P8,H1P4387,H1P4,H1P25892,HP8,HP518, 23 * HP369,HP1 24 COMMON/HCON/H44871M2,H559M3,H1M3,H987M4,H285M4,H1M4, 25 * H6938M5,H394M5,H37412M5,H1439M5,H128M5,H1M5, 26 * H7M6,H4999M6,H25452M6,H1M6,H391M7,H1174M7, 27 * H8725M8,H327M8,H257M8,H1M8,H23M10,H14M10, 28 * H11M10,H1M10,H83M11,H82M11,H8M11,H77M11, 29 * H72M11,H53M11,H48M11,H44M11,H42M11,H37M11, 30 * H35M11,H32M11,H3M11,H28M11,H24M11,H23M11, 31 * H2M11,H18M11,H15M11,H14M11,H114M11,H11M11, 32 * H1M11,H96M12,H93M12,H77M12,H74M12,H65M12, 33 * H62M12,H6M12,H45M12,H44M12,H4M12,H38M12, 34 * H37M12,H3M12,H29M12,H28M12,H24M12,H21M12, 35 * H16M12,H14M12,H12M12,H8M13,H46M13,H36M13, 36 * H135M13,H12M13,H1M13,H3M14,H15M14,H14M14, 37 * H1M17,H1M18,H1M19,H1M20,H1M21,H1M22,H1M23, 38 * H1M24,H26M30,H14M30,H25M31,H21M31,H12M31, 39 * H9M32,H55M32,H45M32,H4M33,H62M34,H1M60 40 COMMON/HCON/HMP575,HM13EZ,HM19EZ,HM1E1,HM181E1,HM1E2 41 COMMON/HCON/H1E6,H2E6,H1M2,HMP66667,HM6666M2,HP166666, 42 * H41666M2,HMP5,HM2M2,H29316E2,H1226E1,H3116E1, 43 * H9P94,HP6,H625M2,HP228,HP60241,HM1797E1, 44 * H8121E1,H2E2,HM1EZ,H26E2,H44194M2,H1P41819 45 COMMON/HCON/HP219,HP144,HP816,H69766E5,H235M3,HP26, 46 * H129M2,H75826M4,H1P082,HP805,H1386E2, 47 * H658M2,H1036E2,H2118M2,H42M2,H323M4, 48 * H67390E2,HP3795,HP5048,H102M5,H451M6 49 COMMON/HCON/H16E1,HM161E1,H161E1,H3M3,H101M16, 50 * HM1597E1,H25E2,HP118666,H15M5,H3P5,H18E3, 51 * H6P08108,HMP805,HP602409,HP526315, 52 * H28571M2,H1M16 53 COMMON/HCON/H3M4 54 COMMON/HCON/HM8E1 55 COMMON/HCON/H28E1 56 C SUBROUTINE CLO88 COMPUTES CLOUD TRANSMISSION FUNCTIONS FOR THE 57 C LONGWAVE CODE,USING CODE WRITTEN BY BERT KATZ (301-763-8161). Page 2 Source Listing CLO89 2014-12-17 20:46 CLO89.F 58 C AND MODIFIED BY DAN SCHWARZKOPF IN DECEMBER,1988. 59 C INPUTS: (COMMON BLOCK) 60 C CAMT,KTOP,KBTM,NCLDS RADISW 61 C OUTPUT: 62 C CLDFAC CLDCOM 63 C 64 C CALLED BY: RADMN OR MODEL ROUTINE 65 C CALLS : 66 C------------------------------------------------------------------------- 67 INCLUDE "parmeta" 90 INCLUDE "mpp.h" 91 # 1 "./sp.h" 1 92 # 4 93 94 # 69 "CLO89.F" 2 95 C------------------------------------------------------------------------- 96 C 97 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 98 C IMAX = NO. POINTS ALONG THE LAT. CIRCLE USED IN CALCS. 99 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 100 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 101 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 102 C BANDTA FOR DEFINITION 103 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 104 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 105 C BDCOMB FOR DEFINITION 106 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 107 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 108 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 109 C FROM THE ABOVE PARAMETERS. 168 PARAMETER (L= LM ) 169 PARAMETER (IMAX=IM,NCOL=IMAX ) 170 PARAMETER (NBLW=163,NBLX=47,NBLY=15) 171 PARAMETER (NBLM=NBLY-1) 172 PARAMETER (LP1=L+1,LP2=L+2,LP3=L+3) 173 PARAMETER (LM1=L-1,LM2=L-2,LM3=L-3) 174 PARAMETER (LL=2*L,LLP1=LL+1,LLP2=LL+2,LLP3=LL+3) 175 PARAMETER (LLM1=LL-1,LLM2=LL-2,LLM3=LL-3) 176 PARAMETER (LP1M=LP1*LP1,LP1M1=LP1M-1) 177 PARAMETER (LP1V=LP1*(1+2*L/2)) 178 PARAMETER (LP121=LP1*NBLY) 179 PARAMETER (LL3P=3*L+2) 180 PARAMETER (NB=12) 181 PARAMETER (INLTE=3,INLTEP=INLTE+1,NNLTE=56) 182 PARAMETER (LP1I=IMAX*LP1,LLP1I=IMAX*LLP1,LL3PI=IMAX*LL3P) 183 PARAMETER (NB1=NB-1) 184 PARAMETER (KO2=12) 185 PARAMETER (KO21=KO2+1,KO2M=KO2-1) 186 C 187 DIMENSION NCLDS(IDIM1:IDIM2),KTOP(IDIM1:IDIM2,LP1), 188 1 KBTM(IDIM1:IDIM2,LP1) 189 DIMENSION CAMT(IDIM1:IDIM2,LP1),CLDFAC(IDIM1:IDIM2,LP1,LP1) 190 DIMENSION CLDROW(LP1) 191 C 192 C DIMENSION CLDFIP(LP1,LP1) 193 DIMENSION CLDIPT(LP1,LP1, 64 ) 194 C Page 3 Source Listing CLO89 2014-12-17 20:46 CLO89.F 195 DO 1 IQ=MYIS,MYIE,64 196 ITOP=IQ+63 197 IF(ITOP.GT.MYIE) ITOP=MYIE 198 JTOP=ITOP-IQ+1 199 DO 11 IP=1,JTOP 200 IR=IQ+IP-1 201 IF (NCLDS(IR).EQ.0) THEN 202 DO 25 J=1,LP1 203 DO 25 I=1,LP1 204 CLDIPT(I,J,IP)=1. 205 25 CONTINUE 206 ENDIF 207 IF (NCLDS(IR).GE.1) THEN 208 XCLD=1.-CAMT(IR,2) 209 K1=KTOP(IR,2)+1 210 K2=KBTM(IR,2) 211 DO 27 J=1,LP1 212 CLDROW(J)=1. 213 27 CONTINUE 214 DO 29 J=1,K2 215 CLDROW(J)=XCLD 216 29 CONTINUE 217 KB=MAX(K1,K2+1) 218 DO 33 K=KB,LP1 219 DO 33 KP=1,LP1 220 CLDIPT(KP,K,IP)=CLDROW(KP) 221 33 CONTINUE 222 DO 37 J=1,LP1 223 CLDROW(J)=1. 224 37 CONTINUE 225 DO 39 J=K1,LP1 226 CLDROW(J)=XCLD 227 39 CONTINUE 228 KT=MIN(K1-1,K2) 229 DO 43 K=1,KT 230 DO 43 KP=1,LP1 231 CLDIPT(KP,K,IP)=CLDROW(KP) 232 43 CONTINUE 233 IF(K2+1.LE.K1-1) THEN 234 DO 31 J=K2+1,K1-1 235 DO 31 I=1,LP1 236 CLDIPT(I,J,IP)=1. 237 31 CONTINUE 238 ELSE IF(K1.LE.K2) THEN 239 DO 32 J=K1,K2 240 DO 32 I=1,LP1 241 CLDIPT(I,J,IP)=XCLD 242 32 CONTINUE 243 ENDIF 244 ENDIF 245 IF (NCLDS(IR).GE.2) THEN 246 DO 21 NC=2,NCLDS(IR) 247 XCLD=1.-CAMT(IR,NC+1) 248 K1=KTOP(IR,NC+1)+1 249 K2=KBTM(IR,NC+1) 250 DO 47 J=1,LP1 251 CLDROW(J)=1. Page 4 Source Listing CLO89 2014-12-17 20:46 CLO89.F 252 47 CONTINUE 253 DO 49 J=1,K2 254 CLDROW(J)=XCLD 255 49 CONTINUE 256 KB=MAX(K1,K2+1) 257 DO 53 K=KB,LP1 258 DO 53 KP=1,LP1 259 CLDIPT(KP,K,IP)=CLDIPT(KP,K,IP)*CLDROW(KP) 260 C CLDFIP(KP,K)=CLDROW(KP) 261 53 CONTINUE 262 DO 57 J=1,LP1 263 CLDROW(J)=1. 264 57 CONTINUE 265 DO 59 J=K1,LP1 266 CLDROW(J)=XCLD 267 59 CONTINUE 268 KT=MIN(K1-1,K2) 269 DO 63 K=1,KT 270 DO 63 KP=1,LP1 271 CLDIPT(KP,K,IP)=CLDIPT(KP,K,IP)*CLDROW(KP) 272 C CLDFIP(KP,K)=CLDROW(KP) 273 63 CONTINUE 274 C IF(K2+1.LE.K1-1) THEN 275 C DO 51 J=K2+1,K1-1 276 C DO 51 I=1,LP1 277 C CLDIPT(I,J,IP)=1. 278 C51 CONTINUE 279 IF(K1.LE.K2) THEN 280 DO 52 J=K1,K2 281 DO 52 I=1,LP1 282 CLDIPT(I,J,IP)=CLDIPT(I,J,IP)*XCLD 283 52 CONTINUE 284 ENDIF 285 C DO 65 J=1,LP1 286 C DO 65 I=1,LP1 287 C CLDIPT(I,J,IP)=CLDIPT(I,J,IP)*CLDFIP(I,J) 288 C65 CONTINUE 289 21 CONTINUE 290 ENDIF 291 11 CONTINUE 292 DO 71 J=1,LP1 293 DO 71 I=1,LP1 294 DO 71 IP=1,JTOP 295 IR=IQ+IP-1 296 CLDFAC(IR,I,J)=CLDIPT(I,J,IP) 297 71 CONTINUE 298 1 CONTINUE 299 RETURN 300 END Page 5 Source Listing CLO89 2014-12-17 20:46 Entry Points CLO89.F ENTRY POINTS Name clo89_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1 Label 214 111 11 Label 207 115 21 Label 205 162 25 Label 121 118,119 27 Label 129 127 29 Label 132 130 31 Label 153 150,151 32 Label 158 155,156 33 Label 137 134,135 37 Label 140 138 39 Label 143 141 43 Label 148 145,146 47 Label 168 166 49 Label 171 169 52 Label 199 196,197 53 Label 177 173,174 57 Label 180 178 59 Label 183 181 63 Label 189 185,186 71 Label 213 208,209,210 AMOLWT Scalar 10 R(4) 4 scalar COM CAMT Dummy 1 R(4) 4 2 2070 ARG,INOUT 124,163 CLDFAC Dummy 1 R(4) 4 3 95220 ARG,INOUT 212 CLDIPT Local 109 R(4) 4 3 135424 120,136,147,152,157,175,187,198,21 2 CLDROW Local 106 R(4) 4 1 46 128,131,136,139,142,147,167,170,17 5,179,182,187 CLO89 Subr 1 CSUBP Scalar 10 R(4) 4 scalar COM DIFFCTR Scalar 10 R(4) 4 scalar COM EIGHT Scalar 15 R(4) 4 scalar COM FIFTY Scalar 15 R(4) 4 scalar COM FIVE Scalar 15 R(4) 4 scalar COM FOUR Scalar 16 R(4) 4 scalar COM G Scalar 10 R(4) 4 scalar COM G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GINV Scalar 14 R(4) 4 scalar COM GLB_TABLE Common 37 128 GP0INV Scalar 14 R(4) 4 scalar COM GRAVDR Scalar 10 R(4) 4 scalar COM H101M16 Scalar 48 R(4) 4 scalar COM H102M5 Scalar 47 R(4) 4 scalar COM H1036E2 Scalar 46 R(4) 4 scalar COM Page 6 Source Listing CLO89 2014-12-17 20:46 Symbol Table CLO89.F Name Object Declared Type Bytes Dimen Elements Attributes References H114M11 Scalar 30 R(4) 4 scalar COM H1174M7 Scalar 25 R(4) 4 scalar COM H11M10 Scalar 27 R(4) 4 scalar COM H11M11 Scalar 30 R(4) 4 scalar COM H1224E3 Scalar 19 R(4) 4 scalar COM H1226E1 Scalar 41 R(4) 4 scalar COM H128M5 Scalar 24 R(4) 4 scalar COM H129M2 Scalar 45 R(4) 4 scalar COM H12M12 Scalar 34 R(4) 4 scalar COM H12M13 Scalar 35 R(4) 4 scalar COM H12M31 Scalar 37 R(4) 4 scalar COM H135M13 Scalar 35 R(4) 4 scalar COM H1386E2 Scalar 45 R(4) 4 scalar COM H1439M5 Scalar 24 R(4) 4 scalar COM H14M10 Scalar 26 R(4) 4 scalar COM H14M11 Scalar 30 R(4) 4 scalar COM H14M12 Scalar 34 R(4) 4 scalar COM H14M14 Scalar 35 R(4) 4 scalar COM H14M30 Scalar 37 R(4) 4 scalar COM H15E2 Scalar 20 R(4) 4 scalar COM H15M11 Scalar 30 R(4) 4 scalar COM H15M14 Scalar 35 R(4) 4 scalar COM H15M5 Scalar 49 R(4) 4 scalar COM H161E1 Scalar 48 R(4) 4 scalar COM H165E5 Scalar 18 R(4) 4 scalar COM H16E1 Scalar 48 R(4) 4 scalar COM H16M12 Scalar 34 R(4) 4 scalar COM H181E1 Scalar 20 R(4) 4 scalar COM H18E1 Scalar 20 R(4) 4 scalar COM H18E3 Scalar 49 R(4) 4 scalar COM H18M11 Scalar 30 R(4) 4 scalar COM H1E11 Scalar 17 R(4) 4 scalar COM H1E13 Scalar 17 R(4) 4 scalar COM H1E15 Scalar 17 R(4) 4 scalar COM H1E4 Scalar 18 R(4) 4 scalar COM H1E6 Scalar 40 R(4) 4 scalar COM H1E8 Scalar 17 R(4) 4 scalar COM H1M10 Scalar 27 R(4) 4 scalar COM H1M11 Scalar 31 R(4) 4 scalar COM H1M13 Scalar 35 R(4) 4 scalar COM H1M16 Scalar 51 R(4) 4 scalar COM H1M17 Scalar 36 R(4) 4 scalar COM H1M18 Scalar 36 R(4) 4 scalar COM H1M19 Scalar 36 R(4) 4 scalar COM H1M2 Scalar 40 R(4) 4 scalar COM H1M20 Scalar 36 R(4) 4 scalar COM H1M21 Scalar 36 R(4) 4 scalar COM H1M22 Scalar 36 R(4) 4 scalar COM H1M23 Scalar 36 R(4) 4 scalar COM H1M24 Scalar 37 R(4) 4 scalar COM H1M3 Scalar 23 R(4) 4 scalar COM H1M4 Scalar 23 R(4) 4 scalar COM H1M5 Scalar 24 R(4) 4 scalar COM H1M6 Scalar 25 R(4) 4 scalar COM H1M60 Scalar 38 R(4) 4 scalar COM Page 7 Source Listing CLO89 2014-12-17 20:46 Symbol Table CLO89.F Name Object Declared Type Bytes Dimen Elements Attributes References H1M8 Scalar 26 R(4) 4 scalar COM H1P082 Scalar 45 R(4) 4 scalar COM H1P25892 Scalar 21 R(4) 4 scalar COM H1P4 Scalar 21 R(4) 4 scalar COM H1P41819 Scalar 43 R(4) 4 scalar COM H1P4387 Scalar 21 R(4) 4 scalar COM H1P8 Scalar 21 R(4) 4 scalar COM H2075E3 Scalar 19 R(4) 4 scalar COM H20788E3 Scalar 18 R(4) 4 scalar COM H2118M2 Scalar 46 R(4) 4 scalar COM H21M12 Scalar 33 R(4) 4 scalar COM H21M31 Scalar 37 R(4) 4 scalar COM H235M3 Scalar 44 R(4) 4 scalar COM H23E2 Scalar 20 R(4) 4 scalar COM H23M10 Scalar 26 R(4) 4 scalar COM H23M11 Scalar 29 R(4) 4 scalar COM H24E3 Scalar 18 R(4) 4 scalar COM H24M11 Scalar 29 R(4) 4 scalar COM H24M12 Scalar 33 R(4) 4 scalar COM H25452M6 Scalar 25 R(4) 4 scalar COM H257M8 Scalar 26 R(4) 4 scalar COM H25E2 Scalar 49 R(4) 4 scalar COM H25M31 Scalar 37 R(4) 4 scalar COM H26E2 Scalar 43 R(4) 4 scalar COM H26M30 Scalar 37 R(4) 4 scalar COM H28571M2 Scalar 51 R(4) 4 scalar COM H285M4 Scalar 23 R(4) 4 scalar COM H28E1 Scalar 54 R(4) 4 scalar COM H28M11 Scalar 29 R(4) 4 scalar COM H28M12 Scalar 33 R(4) 4 scalar COM H29316E2 Scalar 41 R(4) 4 scalar COM H2945E2 Scalar 19 R(4) 4 scalar COM H29M12 Scalar 33 R(4) 4 scalar COM H2E2 Scalar 43 R(4) 4 scalar COM H2E6 Scalar 40 R(4) 4 scalar COM H2M11 Scalar 30 R(4) 4 scalar COM H2P5 Scalar 21 R(4) 4 scalar COM H2P8 Scalar 20 R(4) 4 scalar COM H2P9 Scalar 20 R(4) 4 scalar COM H3082E2 Scalar 19 R(4) 4 scalar COM H3116E1 Scalar 41 R(4) 4 scalar COM H323M4 Scalar 46 R(4) 4 scalar COM H327M8 Scalar 26 R(4) 4 scalar COM H32M11 Scalar 29 R(4) 4 scalar COM H35E1 Scalar 20 R(4) 4 scalar COM H35M11 Scalar 29 R(4) 4 scalar COM H36M13 Scalar 34 R(4) 4 scalar COM H37412M5 Scalar 24 R(4) 4 scalar COM H37M11 Scalar 28 R(4) 4 scalar COM H37M12 Scalar 33 R(4) 4 scalar COM H38M12 Scalar 32 R(4) 4 scalar COM H391M7 Scalar 25 R(4) 4 scalar COM H394M5 Scalar 24 R(4) 4 scalar COM H3E2 Scalar 19 R(4) 4 scalar COM H3M11 Scalar 29 R(4) 4 scalar COM Page 8 Source Listing CLO89 2014-12-17 20:46 Symbol Table CLO89.F Name Object Declared Type Bytes Dimen Elements Attributes References H3M12 Scalar 33 R(4) 4 scalar COM H3M14 Scalar 35 R(4) 4 scalar COM H3M3 Scalar 48 R(4) 4 scalar COM H3M4 Scalar 52 R(4) 4 scalar COM H3P5 Scalar 49 R(4) 4 scalar COM H3P6 Scalar 20 R(4) 4 scalar COM H41666M2 Scalar 41 R(4) 4 scalar COM H42M11 Scalar 28 R(4) 4 scalar COM H42M2 Scalar 46 R(4) 4 scalar COM H44194M2 Scalar 43 R(4) 4 scalar COM H44871M2 Scalar 23 R(4) 4 scalar COM H44M11 Scalar 28 R(4) 4 scalar COM H44M12 Scalar 32 R(4) 4 scalar COM H451M6 Scalar 47 R(4) 4 scalar COM H45M12 Scalar 32 R(4) 4 scalar COM H45M32 Scalar 38 R(4) 4 scalar COM H46M13 Scalar 34 R(4) 4 scalar COM H488E4 Scalar 18 R(4) 4 scalar COM H48M11 Scalar 28 R(4) 4 scalar COM H4999M6 Scalar 25 R(4) 4 scalar COM H4E5 Scalar 17 R(4) 4 scalar COM H4M12 Scalar 32 R(4) 4 scalar COM H4M33 Scalar 38 R(4) 4 scalar COM H53M11 Scalar 28 R(4) 4 scalar COM H559M3 Scalar 23 R(4) 4 scalar COM H55M32 Scalar 38 R(4) 4 scalar COM H5725E4 Scalar 18 R(4) 4 scalar COM H5E2 Scalar 19 R(4) 4 scalar COM H625M2 Scalar 42 R(4) 4 scalar COM H62M12 Scalar 32 R(4) 4 scalar COM H62M34 Scalar 38 R(4) 4 scalar COM H658M2 Scalar 46 R(4) 4 scalar COM H65M12 Scalar 31 R(4) 4 scalar COM H67390E2 Scalar 47 R(4) 4 scalar COM H6938M5 Scalar 24 R(4) 4 scalar COM H69766E5 Scalar 44 R(4) 4 scalar COM H6M12 Scalar 32 R(4) 4 scalar COM H6P08108 Scalar 50 R(4) 4 scalar COM H71E26 Scalar 17 R(4) 4 scalar COM H72M11 Scalar 28 R(4) 4 scalar COM H74M12 Scalar 31 R(4) 4 scalar COM H75826M4 Scalar 45 R(4) 4 scalar COM H77M11 Scalar 27 R(4) 4 scalar COM H77M12 Scalar 31 R(4) 4 scalar COM H7M6 Scalar 25 R(4) 4 scalar COM H8121E1 Scalar 43 R(4) 4 scalar COM H82M11 Scalar 27 R(4) 4 scalar COM H83E26 Scalar 17 R(4) 4 scalar COM H83M11 Scalar 27 R(4) 4 scalar COM H8725M8 Scalar 26 R(4) 4 scalar COM H8M11 Scalar 27 R(4) 4 scalar COM H8M13 Scalar 34 R(4) 4 scalar COM H93M12 Scalar 31 R(4) 4 scalar COM H96M12 Scalar 31 R(4) 4 scalar COM H987M4 Scalar 23 R(4) 4 scalar COM Page 9 Source Listing CLO89 2014-12-17 20:46 Symbol Table CLO89.F Name Object Declared Type Bytes Dimen Elements Attributes References H9M32 Scalar 38 R(4) 4 scalar COM H9P94 Scalar 42 R(4) 4 scalar COM HAF Scalar 16 R(4) 4 scalar COM HCON Common 15 872 HM13EZ Scalar 39 R(4) 4 scalar COM HM1597E1 Scalar 49 R(4) 4 scalar COM HM161E1 Scalar 48 R(4) 4 scalar COM HM1797E1 Scalar 42 R(4) 4 scalar COM HM181E1 Scalar 39 R(4) 4 scalar COM HM19EZ Scalar 39 R(4) 4 scalar COM HM1E1 Scalar 39 R(4) 4 scalar COM HM1E2 Scalar 39 R(4) 4 scalar COM HM1EZ Scalar 43 R(4) 4 scalar COM HM2M2 Scalar 41 R(4) 4 scalar COM HM6666M2 Scalar 40 R(4) 4 scalar COM HM8E1 Scalar 53 R(4) 4 scalar COM HMP5 Scalar 41 R(4) 4 scalar COM HMP575 Scalar 39 R(4) 4 scalar COM HMP66667 Scalar 40 R(4) 4 scalar COM HMP805 Scalar 50 R(4) 4 scalar COM HNINETY Scalar 15 R(4) 4 scalar COM HP1 Scalar 22 R(4) 4 scalar COM HP118666 Scalar 49 R(4) 4 scalar COM HP144 Scalar 44 R(4) 4 scalar COM HP166666 Scalar 40 R(4) 4 scalar COM HP219 Scalar 44 R(4) 4 scalar COM HP228 Scalar 42 R(4) 4 scalar COM HP26 Scalar 44 R(4) 4 scalar COM HP369 Scalar 22 R(4) 4 scalar COM HP3795 Scalar 47 R(4) 4 scalar COM HP5048 Scalar 47 R(4) 4 scalar COM HP518 Scalar 21 R(4) 4 scalar COM HP526315 Scalar 50 R(4) 4 scalar COM HP6 Scalar 42 R(4) 4 scalar COM HP602409 Scalar 50 R(4) 4 scalar COM HP60241 Scalar 42 R(4) 4 scalar COM HP8 Scalar 21 R(4) 4 scalar COM HP805 Scalar 45 R(4) 4 scalar COM HP816 Scalar 44 R(4) 4 scalar COM HTMG Scalar 52 R(4) 4 3 4183695 COM HUNDRED Scalar 15 R(4) 4 scalar COM I Local 119 I(4) 4 scalar 119,120,151,152,156,157,197,198,20 9,212 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 103,104,105 IDIM2 Param 19 I(4) 4 scalar 103,104,105 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 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 Page 10 Source Listing CLO89 2014-12-17 20:46 Symbol Table CLO89.F Name Object Declared Type Bytes Dimen Elements Attributes References 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,85 IMAX Param 85 I(4) 4 scalar 85,98 INLTE Param 97 I(4) 4 scalar 97 INLTEP Param 97 I(4) 4 scalar INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IP Local 115 I(4) 4 scalar 115,116,120,136,147,152,157,175,18 7,198,210,211,212 IQ Local 111 I(4) 4 scalar 111,112,114,116,211 IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IR Local 116 I(4) 4 scalar 116,117,123,124,125,126,161,162,16 3,164,165,211,212 IRCOL Scalar 22 I(4) 4 scalar COM IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM IS_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 ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITOP Local 112 I(4) 4 scalar 112,113,114 ITROW Scalar 22 I(4) 4 scalar COM J Local 118 I(4) 4 scalar 118,120,127,128,130,131,138,139,14 1,142,150,152,155,157,166,167,169, 170,178,179,181,182,196,198,208,21 2 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar JDIM2 Param 20 I(4) 4 scalar JE_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 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 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 JTOP Local 114 I(4) 4 scalar 114,115,210 JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM K Local 134 I(4) 4 scalar 134,136,145,147,173,175,185,187 K1 Local 125 I(4) 4 scalar 125,133,141,144,149,150,154,155,16 Page 11 Source Listing CLO89 2014-12-17 20:46 Symbol Table CLO89.F Name Object Declared Type Bytes Dimen Elements Attributes References 4,172,181,184,195,196 K2 Local 126 I(4) 4 scalar 126,130,133,144,149,150,154,155,16 5,169,172,184,195,196 KB Local 133 I(4) 4 scalar 133,134,172,173 KBTM Dummy 1 I(4) 4 2 2070 ARG,INOUT 126,165 KO2 Param 100 I(4) 4 scalar 101 KO21 Param 101 I(4) 4 scalar KO2M Param 101 I(4) 4 scalar KP Local 135 I(4) 4 scalar 135,136,146,147,174,175,186,187 KT Local 144 I(4) 4 scalar 144,145,184,185 KTOP Dummy 1 I(4) 4 2 2070 ARG,INOUT 125,164 L Param 84 I(4) 4 scalar 88,89,90,93,95 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL Param 90 I(4) 4 scalar 90,91 LL3P Param 95 I(4) 4 scalar 98 LL3PI Param 98 I(4) 4 scalar LLM1 Param 91 I(4) 4 scalar LLM2 Param 91 I(4) 4 scalar LLM3 Param 91 I(4) 4 scalar LLP1 Param 90 I(4) 4 scalar 98 LLP1I Param 98 I(4) 4 scalar LLP2 Param 90 I(4) 4 scalar LLP3 Param 90 I(4) 4 scalar LM Param 3 I(4) 4 scalar 52,84 LM1 Param 89 I(4) 4 scalar LM2 Param 89 I(4) 4 scalar LM3 Param 89 I(4) 4 scalar LP1 Param 88 I(4) 4 scalar 92,93,94,98,103,104,105,106,109,11 8,119,127,134,135,138,141,146,151, 156,166,173,174,178,181,186,197,20 8,209 LP121 Param 94 I(4) 4 scalar LP1I Param 98 I(4) 4 scalar LP1M Param 92 I(4) 4 scalar 92 LP1M1 Param 92 I(4) 4 scalar LP1V Param 93 I(4) 4 scalar LP2 Param 88 I(4) 4 scalar LP3 Param 88 I(4) 4 scalar LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MAX Func 133 scalar 133,172 MIN Func 144 scalar 144,184 MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 111,113 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 Page 12 Source Listing CLO89 2014-12-17 20:46 Symbol Table CLO89.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 111 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM 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 Page 13 Source Listing CLO89 2014-12-17 20:46 Symbol Table CLO89.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM MY_E Scalar 20 I(4) 4 scalar COM MY_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 MY_W Scalar 20 I(4) 4 scalar COM NB Param 96 I(4) 4 scalar 99 NB1 Param 99 I(4) 4 scalar NBLM Param 87 I(4) 4 scalar NBLW Param 86 I(4) 4 scalar NBLX Param 86 I(4) 4 scalar NBLY Param 86 I(4) 4 scalar 87,94 NC Local 162 I(4) 4 scalar 162,163,164,165 NCLDS Dummy 1 I(4) 4 1 45 ARG,INOUT 117,123,161,162 NCOL Param 85 I(4) 4 scalar NNLTE Param 97 I(4) 4 scalar NPES Scalar 2 I(4) 4 scalar COM O3DIFCTR Scalar 10 R(4) 4 scalar COM ONE Scalar 16 R(4) 4 scalar COM P0 Scalar 10 R(4) 4 scalar COM P0INV Scalar 14 R(4) 4 scalar COM P0X2 Scalar 11 R(4) 4 scalar COM P0XZP2 Scalar 11 R(4) 4 scalar COM P0XZP8 Scalar 11 R(4) 4 scalar COM PHYCON Common 10 80 QUARTR Scalar 16 R(4) 4 scalar COM RADCON Scalar 11 R(4) 4 scalar COM RADCON1 Scalar 13 R(4) 4 scalar COM RATCO2MW Scalar 12 R(4) 4 scalar COM RATH2OMW Scalar 12 R(4) 4 scalar COM RGAS Scalar 11 R(4) 4 scalar COM RGASSP Scalar 11 R(4) 4 scalar COM SECPDA Scalar 11 R(4) 4 scalar COM Page 14 Source Listing CLO89 2014-12-17 20:46 Symbol Table CLO89.F Name Object Declared Type Bytes Dimen Elements Attributes References SIXTY Scalar 15 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 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 TEN Scalar 15 R(4) 4 scalar COM THREE Scalar 16 R(4) 4 scalar COM TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM TWO Scalar 16 R(4) 4 scalar COM XCLD Local 124 R(4) 4 scalar 124,131,142,157,163,170,182,198 ZERO Scalar 16 R(4) 4 scalar COM Page 15 Source Listing CLO89 2014-12-17 20:46 Subprograms/Common Blocks CLO89.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLO89 Subr 1 GLB_TABLE Common 37 128 HCON Common 15 872 MAPPINGS Common 56 5024 MPPCOM Common 1 1464 PHYCON Common 10 80 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -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 Page 16 Source Listing CLO89 2014-12-17 20:46 CLO89.F no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -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 : CLO89.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100