prog.f95:2:2:
C PROGRAM TESTOMAIN.F
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:2:0:
C PROGRAM TESTOMAIN.F
Error: Unclassifiable statement at (1)
prog.f95:4:0:
C Runs test problems for DISORT and checks answers. These
Error: Unclassifiable statement at (1)
prog.f95:5:0:
C problems test almost all logical branches in DISORT.
Error: Unclassifiable statement at (1)
prog.f95:7:0:
C As distributed, runs all problems. To run just a subset,
Error: Unclassifiable statement at (1)
prog.f95:8:0:
C change DATA statement for DOPROB; e.g. to run just problem 4,
Error: Unclassifiable statement at (1)
prog.f95:8:40:
C change DATA statement for DOPROB; e.g. to run just problem 4,
1
Error: Unclassifiable statement at (1)
prog.f95:9:0:
C set DOPROB(4) TRUE and all others FALSE.
Error: Unclassifiable statement at (1)
prog.f95:11:0:
C Further documentation can be found in the file DISOTEST.doc.
Error: Unclassifiable statement at (1)
prog.f95:14:0:
C ROUTINES CALLED :
Error: Unclassifiable statement at (1)
prog.f95:16:0:
C DISORT: THE DISCRETE ORDINATES RADIATIVE TRANSFER PROGRAM
Error: Unclassifiable statement at (1)
prog.f95:18:0:
C GETMOM: SETS PHASE FUNCTION LEGENDRE COEFFICIENTS
Error: Unclassifiable statement at (1)
prog.f95:20:0:
C PRTFIN: PRINTS FLUXES AND INTENSITIES AND THEIR RATIOS TO
Error: Unclassifiable statement at (1)
prog.f95:21:0:
C THE CORRECT VALUES
Error: Unclassifiable statement at (1)
prog.f95:23:0:
C CHEKDO: DATA BLOCK CONTAINING CORRECT FLUXES AND INTENSITIES
Error: Unclassifiable statement at (1)
prog.f95:25:0:
C RATIO : RATIO OF CALCULATED TO CORRECT VALUE WITH UNDERFLOW
Error: Unclassifiable statement at (1)
prog.f95:26:0:
C AND OVERFLOW PROTECTION
Error: Unclassifiable statement at (1)
prog.f95:28:0:
C+---------------------------------------------------------------------+
Error: Unclassifiable statement at (1)
prog.f95:30:0:
C ** DISORT I/O SPECIFICATIONS **
Error: Unclassifiable statement at (1)
prog.f95:32:1:
PARAMETER ( MAXCLY = 6, MAXCMU = 49, MAXPHI = 3, MAXULV = 5,
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:32:61:
PARAMETER ( MAXCLY = 6, MAXCMU = 49, MAXPHI = 3, MAXULV = 5,
1
Error: Expected variable name at (1) in PARAMETER statement
prog.f95:33:6:
$ MAXUMU = 10 )
1
Error: Invalid character in name at (1)
prog.f95:34:1:
CHARACTER HEADER*127
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:35:1:
LOGICAL DELTAM, LAMBER, PLANK, ONLYFL, PRNT(7), USRANG, USRTAU
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:36:1:
INTEGER IBCND, NLYR, NUMU, NSTR, NPHI, NTAU
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:37:1:
REAL ACCUR, ALBEDO, BTEMP, DTAUC( MAXCLY ), FBEAM, FISOT,
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:37:62:
REAL ACCUR, ALBEDO, BTEMP, DTAUC( MAXCLY ), FBEAM, FISOT,
1
Error: Invalid character in name at (1)
prog.f95:38:6:
$ HL( 0:MAXCMU ), PHI( MAXPHI ), PMOM( 0:MAXCMU, MAXCLY ),
1
Error: Invalid character in name at (1)
prog.f95:39:6:
$ PHI0, SSALB( MAXCLY ), TEMPER( 0:MAXCLY ), TEMIS, TTEMP,
1
Error: Invalid character in name at (1)
prog.f95:40:6:
$ WVNMLO, WVNMHI, UMU( MAXUMU ), UMU0, UTAU( MAXULV )
1
Error: Invalid character in name at (1)
prog.f95:42:1:
REAL RFLDIR( MAXULV ), RFLDN( MAXULV ), FLUP( MAXULV ),
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:42:60:
REAL RFLDIR( MAXULV ), RFLDN( MAXULV ), FLUP( MAXULV ),
1
Error: Invalid character in name at (1)
prog.f95:43:6:
$ DFDT( MAXULV ), UAVG( MAXULV ), U0U( MAXUMU, MAXULV ),
1
Error: Invalid character in name at (1)
prog.f95:44:6:
$ UU( MAXUMU, MAXULV, MAXPHI ), ALBMED( MAXUMU ),
1
Error: Invalid character in name at (1)
prog.f95:45:6:
$ TRNMED( MAXUMU )
1
Error: Invalid character in name at (1)
prog.f95:46:0:
C+---------------------------------------------------------------------+
Error: Unclassifiable statement at (1)
prog.f95:48:0:
C ** CORRECT ANSWERS **
Error: Unclassifiable statement at (1)
prog.f95:50:1:
PARAMETER ( MXPROB = 9, MXCASE = 8, MAXTAU = 5, MAXMU = 10,
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:50:61:
PARAMETER ( MXPROB = 9, MXCASE = 8, MAXTAU = 5, MAXMU = 10,
1
Error: Expected variable name at (1) in PARAMETER statement
prog.f95:51:6:
$ MAXAZ = 3 )
1
Error: Invalid character in name at (1)
prog.f95:52:1:
REAL TSTFIR( MAXTAU, MXCASE, MXPROB ),
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:52:40:
REAL TSTFIR( MAXTAU, MXCASE, MXPROB ),
1
Error: Invalid character in name at (1)
prog.f95:53:6:
$ TSTFDN( MAXTAU, MXCASE, MXPROB ),
1
Error: Invalid character in name at (1)
prog.f95:54:6:
$ TSTFUP( MAXTAU, MXCASE, MXPROB ),
1
Error: Invalid character in name at (1)
prog.f95:55:6:
$ TSTDFD( MAXTAU, MXCASE, MXPROB ),
1
Error: Invalid character in name at (1)
prog.f95:56:6:
$ TSTUU ( MAXTAU, MAXMU, MAXAZ, MXCASE, MXPROB )
1
Error: Invalid character in name at (1)
prog.f95:57:1:
COMMON / DOCHEK / TSTFIR, TSTFDN, TSTFUP, TSTDFD, TSTUU
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:58:0:
C+---------------------------------------------------------------------+
Error: Unclassifiable statement at (1)
prog.f95:60:1:
PARAMETER ( MXTAU = 5, MXMU = 10, MXPHI = 3 )
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:61:1:
CHARACTER*1 ABC(18)
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:61:12:
CHARACTER*1 ABC(18)
1
Warning: Obsolescent feature: Old-style character length at (1)
prog.f95:62:1:
CHARACTER*100 TITLE
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:62:14:
CHARACTER*100 TITLE
1
Warning: Obsolescent feature: Old-style character length at (1)
prog.f95:63:1:
CHARACTER*3 BLANKS
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:63:12:
CHARACTER*3 BLANKS
1
Warning: Obsolescent feature: Old-style character length at (1)
prog.f95:64:1:
LOGICAL AZMAVG
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:65:1:
REAL CMPFIR( MXTAU ), CMPFDN( MXTAU ), CMPFUP( MXTAU ),
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:65:65:
REAL CMPFIR( MXTAU ), CMPFDN( MXTAU ), CMPFUP( MXTAU ),
1
Error: Invalid character in name at (1)
prog.f95:66:6:
$ CMPDFD( MXTAU ), CMPUU ( MXTAU, MXMU, MXPHI )
1
Error: Invalid character in name at (1)
prog.f95:67:1:
DATA ABC / 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:67:62:
DATA ABC / 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',
1
Error: Syntax error in DATA statement at (1)
prog.f95:68:6:
$ 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R' /,
1
Error: Invalid character in name at (1)
prog.f95:69:6:
$ PRNT / .TRUE., 5*.FALSE., .TRUE. /, ACCUR / 0.0 /,
1
Error: Invalid character in name at (1)
prog.f95:70:6:
$ BLANKS / ' ' /
1
Error: Invalid character in name at (1)
prog.f95:73:1:
PI = 3.1415926
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:75:0:
C **********************************************************************
Error: Unclassifiable statement at (1)
prog.f95:76:0:
C **** TEST PROBLEM 4: HAZE-L SCATTERING, BEAM SOURCE ****
Error: Unclassifiable statement at (1)
prog.f95:77:0:
C **** (COMPARE TO REF. GS, TABLES 12-16) ****
Error: Unclassifiable statement at (1)
prog.f95:78:0:
C **********************************************************************
Error: Unclassifiable statement at (1)
prog.f95:80:2:
C DATA HL / 6.123, 4.505, 5.041, 2.782, 1.899, 0.201, 0.549,
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:80:0:
C DATA HL / 6.123, 4.505, 5.041, 2.782, 1.899, 0.201, 0.549,
Error: Unclassifiable statement at (1)
prog.f95:81:0:
C $ 0.473, 1.737, 1.437, 1.964, 0.542, 0.927, -0.010, 1.417,
Error: Unclassifiable statement at (1)
prog.f95:82:0:
C $ 1.118, 2.094, 0.970, 0.844, 0.163, 0.732, 1.384, 1.800,
Error: Unclassifiable statement at (1)
prog.f95:83:0:
C $ 1.922, 1.321, 1.413, 1.274, 1.755, 1.460, 1.185, 0.517,
Error: Unclassifiable statement at (1)
prog.f95:84:0:
C $ 0.203 /
Error: Unclassifiable statement at (1)
prog.f95:85:1:
NSTR = 32
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:86:1:
NLYR = 1
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:87:1:
DTAUC( 1 ) = 0.05
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:88:1:
CALL GETMOM( 3, 0.75, NSTR, PMOM )
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:89:1:
USRTAU = .TRUE.
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:90:1:
NTAU = 2
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:91:1:
UTAU( 1 ) = 0.0
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:93:1:
USRANG = .TRUE.
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:94:1:
NUMU = 10
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:95:1:
UMU( 1 ) = -0.0130
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:96:1:
UMU( 2 ) = -0.1675
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:97:1:
UMU( 3 ) = -0.2833
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:98:1:
UMU( 4 ) = -0.4256
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:105:1:
IBCND = 0
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:106:1:
FBEAM = PI
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:107:1:
PHI0 = 0.0
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:108:1:
FISOT = 0.0
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:109:2:
C LAMBER = .FALSE.
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:109:0:
C LAMBER = .FALSE.
Error: Unclassifiable statement at (1)
prog.f95:110:1:
LAMBER = .TRUE.
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:111:1:
ALBEDO = 0.2
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:112:1:
DELTAM = .TRUE.
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:113:1:
PLANK = .FALSE.
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:114:1:
ONLYFL = .FALSE.
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:116:1:
DO 40 ICAS = 1, 1
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:118:1:
WRITE( TITLE, '(3A)' ) 'TEST CASE NO. 4', ABC(ICAS),
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:118:56:
WRITE( TITLE, '(3A)' ) 'TEST CASE NO. 4', ABC(ICAS),
1
Error: Expected expression in WRITE statement at (1)
prog.f95:119:6:
$ ', HAZE-L SCATTERING, REF. GS, TABLE '
1
Error: Invalid character in name at (1)
prog.f95:120:1:
LENTIT = INDEX( TITLE,BLANKS )
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:122:1:
IF ( ICAS.EQ.1 ) THEN
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:123:1:
SSALB( 1 ) = 0.9
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:124:1:
NPHI = 1
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:125:1:
PHI( 1 ) = 0.082
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:126:1:
UMU0 = 0.4
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:127:1:
HEADER = TITLE(1:LENTIT) // ' 12'
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:129:1:
ELSE IF ( ICAS.EQ.2 ) THEN
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:130:1:
SSALB( 1 ) = 0.9
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:131:1:
NPHI = 1
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:132:1:
PHI( 1 ) = 0.0
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:133:1:
UMU0 = 1.0
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:134:1:
HEADER = TITLE(1:LENTIT) // ' 13'
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:136:1:
ELSE IF ( ICAS.EQ.3 ) THEN
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:137:1:
SSALB( 1 ) = 0.9
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:138:1:
NPHI = 3
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:139:1:
PHI( 1 ) = 0.08198*180./3.14
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:140:1:
PHI( 2 ) = 1.78*180./3.14
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:141:1:
PHI( 3 ) = 3.61*180./3.14
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:142:1:
UMU0 = cos(30.*3.14/180.)
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:143:1:
HEADER = TITLE(1:LENTIT) // ' 14-16'
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:144:1:
END IF
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:146:1:
CALL DISORT( NLYR, DTAUC, SSALB, PMOM, TEMPER, WVNMLO,
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:146:59:
CALL DISORT( NLYR, DTAUC, SSALB, PMOM, TEMPER, WVNMLO,
1
Error: Syntax error in argument list at (1)
prog.f95:147:6:
$ WVNMHI, USRTAU, NTAU, UTAU, NSTR, USRANG,
1
Error: Invalid character in name at (1)
prog.f95:148:6:
$ NUMU, UMU, NPHI, PHI, IBCND, FBEAM, UMU0,
1
Error: Invalid character in name at (1)
prog.f95:149:6:
$ PHI0, FISOT, LAMBER, ALBEDO, HL, BTEMP, TTEMP,
1
Error: Invalid character in name at (1)
prog.f95:150:6:
$ TEMIS, DELTAM, PLANK, ONLYFL, ACCUR, PRNT,
1
Error: Invalid character in name at (1)
prog.f95:151:6:
$ HEADER, MAXCLY, MAXULV, MAXUMU, MAXCMU,
1
Error: Invalid character in name at (1)
prog.f95:152:6:
$ MAXPHI, RFLDIR, RFLDN, FLUP, DFDT, UAVG,
1
Error: Invalid character in name at (1)
prog.f95:153:6:
$ UU, U0U, ALBMED, TRNMED )
1
Error: Invalid character in name at (1)
prog.f95:155:1:
AZMAVG = .FALSE.
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:156:1:
NPROB = 4
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:157:1:
IF( NPROB.GT.MXPROB .OR. ICAS.GT.MXCASE ) CALL
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:157:51:
IF( NPROB.GT.MXPROB .OR. ICAS.GT.MXCASE ) CALL
1
Error: Syntax error in CALL statement at (1)
prog.f95:158:6:
$ ERRMSG( 'OUT OF BOUNDS IN EXACT-ANSWER ARRAYS', .FALSE. )
1
Error: Invalid character in name at (1)
prog.f95:159:1:
CALL PRTFIN( UTAU, NTAU, UMU, NUMU, PHI, NPHI, MAXULV,
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:159:59:
CALL PRTFIN( UTAU, NTAU, UMU, NUMU, PHI, NPHI, MAXULV,
1
Error: Syntax error in argument list at (1)
prog.f95:160:6:
$ MAXUMU, ONLYFL, AZMAVG, RFLDIR, RFLDN,
1
Error: Invalid character in name at (1)
prog.f95:161:6:
$ FLUP, DFDT, U0U, UU, TSTFIR(1,ICAS,NPROB),
1
Error: Invalid character in name at (1)
prog.f95:162:6:
$ TSTFDN(1,ICAS,NPROB), TSTFUP(1,ICAS,NPROB),
1
Error: Invalid character in name at (1)
prog.f95:163:6:
$ TSTDFD(1,ICAS,NPROB), TSTUU(1,1,1,ICAS,NPROB),
1
Error: Invalid character in name at (1)
prog.f95:164:6:
$ MAXTAU, MAXMU, MAXAZ )
1
Error: Invalid character in name at (1)
prog.f95:167:1:
STOP
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:168:1:
END
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:169:1:
SUBROUTINE GETMOM( IPHAS, GG, NMOM, PMOM )
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:171:0:
C CALCULATE PHASE FUNCTION LEGENDRE EXPANSION COEFFICIENTS
Error: Unclassifiable statement at (1)
prog.f95:172:0:
C IN VARIOUS SPECIAL CASES
Error: Unclassifiable statement at (1)
prog.f95:174:1:
INTEGER IPHAS, NMOM
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:175:1:
REAL GG, PMOM( 0:* )
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:177:0:
C INPUT: IPHAS PHASE FUNCTION OPTIONS
Error: Unclassifiable statement at (1)
prog.f95:178:0:
C 1 : ISOTROPIC
Error: Unclassifiable statement at (1)
prog.f95:179:0:
C 2 : RAYLEIGH
Error: Unclassifiable statement at (1)
prog.f95:180:0:
C 3 : HENYEY-GREENSTEIN WITH ASYMMETRY FACTOR -GG-
Error: Unclassifiable statement at (1)
prog.f95:181:0:
C 4 : HAZE L AS SPECIFIED BY GARCIA/SIEWERT
Error: Unclassifiable statement at (1)
prog.f95:182:0:
C 5 : CLOUD C.1 AS SPECIFIED BY GARCIA/SIEWERT
Error: Unclassifiable statement at (1)
prog.f95:184:0:
C GG ASYMMETRY FACTOR FOR HENYEY-GREENSTEIN CASE
Error: Unclassifiable statement at (1)
prog.f95:186:0:
C NMOM INDEX OF HIGHEST LEGENDRE COEFFICIENT NEEDED
Error: Unclassifiable statement at (1)
prog.f95:187:0:
C ( = NUMBER OF STREAMS 'NSTR' CHOSEN
Error: Unclassifiable statement at (1)
prog.f95:188:0:
C FOR THE DISCRETE ORDINATE METHOD)
Error: Unclassifiable statement at (1)
prog.f95:190:0:
C OUTPUT: PMOM(K) LEGENDRE EXPANSION COEFFICIENTS (K=0 TO NMOM)
Error: Unclassifiable statement at (1)
prog.f95:191:0:
C (BE SURE TO DIMENSION '0:maxval' IN CALLING
Error: Unclassifiable statement at (1)
prog.f95:192:0:
C PROGRAM)
Error: Unclassifiable statement at (1)
prog.f95:194:0:
C REFERENCE: GARCIA, R. AND C. SIEWERT, 1985: BENCHMARK RESULTS
Error: Unclassifiable statement at (1)
prog.f95:195:0:
C IN RADIATIVE TRANSFER, TRANSP. THEORY AND STAT.
Error: Unclassifiable statement at (1)
prog.f95:196:0:
C PHYSICS 14, 437-484, TABLES 10 AND 17
Error: Unclassifiable statement at (1)
prog.f95:198:1:
REAL HAZELM( 82 ), CLDMOM( 299 )
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:200:1:
DATA HAZELM / 2.41260, 3.23047, 3.37296, 3.23150, 2.89350,
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:200:60:
DATA HAZELM / 2.41260, 3.23047, 3.37296, 3.23150, 2.89350,
1
Error: Syntax error in DATA statement at (1)
prog.f95:201:5:
A 2.49594, 2.11361, 1.74812, 1.44692, 1.17714,
1
Error: Unclassifiable statement at (1)
prog.f95:202:5:
B 0.96643, 0.78237, 0.64114, 0.51966, 0.42563,
1
Error: Unclassifiable statement at (1)
prog.f95:203:5:
C 0.34688, 0.28351, 0.23317, 0.18963, 0.15788,
1
Error: Unclassifiable statement at (1)
prog.f95:204:5:
D 0.12739, 0.10762, 0.08597, 0.07381, 0.05828,
1
Error: Unclassifiable statement at (1)
prog.f95:205:5:
E 0.05089, 0.03971, 0.03524, 0.02720, 0.02451,
1
Error: Unclassifiable statement at (1)
prog.f95:206:5:
F 0.01874, 0.01711, 0.01298, 0.01198, 0.00904,
1
Error: Unclassifiable statement at (1)
prog.f95:207:5:
G 0.00841, 0.00634, 0.00592, 0.00446, 0.00418,
1
Error: Unclassifiable statement at (1)
prog.f95:208:5:
H 0.00316, 0.00296, 0.00225, 0.00210, 0.00160,
1
Error: Unclassifiable statement at (1)
prog.f95:209:5:
I 0.00150, 0.00115, 0.00107, 0.00082, 0.00077,
1
Error: Unclassifiable statement at (1)
prog.f95:210:5:
J 0.00059, 0.00055, 0.00043, 0.00040, 0.00031,
1
Error: Unclassifiable statement at (1)
prog.f95:211:5:
K 0.00029, 0.00023, 0.00021, 0.00017, 0.00015,
1
Error: Unclassifiable statement at (1)
prog.f95:212:5:
L 0.00012, 0.00011, 0.00009, 0.00008, 0.00006,
1
Error: Unclassifiable statement at (1)
prog.f95:213:5:
M 0.00006, 0.00005, 0.00004, 0.00004, 0.00003,
1
Error: Unclassifiable statement at (1)
prog.f95:214:5:
N 0.00003, 3*0.00002, 8*0.00001 /
1
Error: Unclassifiable statement at (1)
prog.f95:216:1:
DATA ( CLDMOM(K), K = 1, 159 ) /
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:216:34:
DATA ( CLDMOM(K), K = 1, 159 ) /
1
Error: Syntax error in DATA statement at (1)
prog.f95:217:5:
A 2.544, 3.883, 4.568, 5.235, 5.887, 6.457, 7.177, 7.859,
1
Error: Unclassifiable statement at (1)
prog.f95:218:5:
B 8.494, 9.286, 9.856, 10.615, 11.229, 11.851, 12.503, 13.058,
1
Error: Unclassifiable statement at (1)
prog.f95:219:5:
C 13.626, 14.209, 14.660, 15.231, 15.641, 16.126, 16.539, 16.934,
1
Error: Unclassifiable statement at (1)
prog.f95:220:5:
D 17.325, 17.673, 17.999, 18.329, 18.588, 18.885, 19.103, 19.345,
1
Error: Unclassifiable statement at (1)
prog.f95:221:5:
E 19.537, 19.721, 19.884, 20.024, 20.145, 20.251, 20.330, 20.401,
1
Error: Unclassifiable statement at (1)
prog.f95:222:5:
F 20.444, 20.477, 20.489, 20.483, 20.467, 20.427, 20.382, 20.310,
1
Error: Unclassifiable statement at (1)
prog.f95:223:5:
G 20.236, 20.136, 20.036, 19.909, 19.785, 19.632, 19.486, 19.311,
1
Error: Unclassifiable statement at (1)
prog.f95:224:5:
H 19.145, 18.949, 18.764, 18.551, 18.348, 18.119, 17.901, 17.659,
1
Error: Unclassifiable statement at (1)
prog.f95:225:5:
I 17.428, 17.174, 16.931, 16.668, 16.415, 16.144, 15.883, 15.606,
1
Error: Unclassifiable statement at (1)
prog.f95:226:5:
J 15.338, 15.058, 14.784, 14.501, 14.225, 13.941, 13.662, 13.378,
1
Error: Unclassifiable statement at (1)
prog.f95:227:5:
K 13.098, 12.816, 12.536, 12.257, 11.978, 11.703, 11.427, 11.156,
1
Error: Unclassifiable statement at (1)
prog.f95:228:5:
L 10.884, 10.618, 10.350, 10.090, 9.827, 9.574, 9.318, 9.072,
1
Error: Unclassifiable statement at (1)
prog.f95:229:5:
M 8.822, 8.584, 8.340, 8.110, 7.874, 7.652, 7.424, 7.211, 6.990,
1
Error: Unclassifiable statement at (1)
prog.f95:230:5:
N 6.785, 6.573, 6.377, 6.173, 5.986, 5.790, 5.612, 5.424, 5.255,
1
Error: Unclassifiable statement at (1)
prog.f95:231:5:
O 5.075, 4.915, 4.744, 4.592, 4.429, 4.285, 4.130, 3.994, 3.847,
1
Error: Unclassifiable statement at (1)
prog.f95:232:5:
P 3.719, 3.580, 3.459, 3.327, 3.214, 3.090, 2.983, 2.866, 2.766,
1
Error: Unclassifiable statement at (1)
prog.f95:233:5:
Q 2.656, 2.562, 2.459, 2.372, 2.274, 2.193, 2.102, 2.025, 1.940,
1
Error: Unclassifiable statement at (1)
prog.f95:234:5:
R 1.869, 1.790, 1.723, 1.649, 1.588, 1.518, 1.461, 1.397, 1.344,
1
Error: Unclassifiable statement at (1)
prog.f95:235:5:
S 1.284, 1.235, 1.179, 1.134, 1.082, 1.040, 0.992, 0.954, 0.909 /
1
Error: Unclassifiable statement at (1)
prog.f95:236:1:
DATA ( CLDMOM(K), K = 160, 299 ) /
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:236:36:
DATA ( CLDMOM(K), K = 160, 299 ) /
1
Error: Syntax error in DATA statement at (1)
prog.f95:237:5:
T 0.873, 0.832, 0.799, 0.762, 0.731, 0.696, 0.668, 0.636, 0.610,
1
Error: Unclassifiable statement at (1)
prog.f95:238:5:
U 0.581, 0.557, 0.530, 0.508, 0.483, 0.463, 0.440, 0.422, 0.401,
1
Error: Unclassifiable statement at (1)
prog.f95:239:5:
V 0.384, 0.364, 0.349, 0.331, 0.317, 0.301, 0.288, 0.273, 0.262,
1
Error: Unclassifiable statement at (1)
prog.f95:240:5:
W 0.248, 0.238, 0.225, 0.215, 0.204, 0.195, 0.185, 0.177, 0.167,
1
Error: Unclassifiable statement at (1)
prog.f95:241:5:
X 0.160, 0.151, 0.145, 0.137, 0.131, 0.124, 0.118, 0.112, 0.107,
1
Error: Unclassifiable statement at (1)
prog.f95:242:5:
Y 0.101, 0.097, 0.091, 0.087, 0.082, 0.079, 0.074, 0.071, 0.067,
1
Error: Unclassifiable statement at (1)
prog.f95:243:5:
Z 0.064, 0.060, 0.057, 0.054, 0.052, 0.049, 0.047, 0.044, 0.042,
1
Error: Unclassifiable statement at (1)
prog.f95:244:5:
A 0.039, 0.038, 0.035, 0.034, 0.032, 0.030, 0.029, 0.027, 0.026,
1
Error: Unclassifiable statement at (1)
prog.f95:245:5:
B 0.024, 0.023, 0.022, 0.021, 0.020, 0.018, 0.018, 0.017, 0.016,
1
Error: Unclassifiable statement at (1)
prog.f95:246:5:
C 0.015, 0.014, 0.013, 0.013, 0.012, 0.011, 0.011, 0.010, 0.009,
1
Error: Unclassifiable statement at (1)
prog.f95:247:5:
D 0.009, 3*0.008, 2*0.007, 3*0.006, 4*0.005, 4*0.004, 6*0.003,
1
Error: Unclassifiable statement at (1)
prog.f95:248:5:
E 9*0.002, 18*0.001 /
1
Error: Unclassifiable statement at (1)
prog.f95:251:1:
IF ( IPHAS.LT.1 .OR. IPHAS.GT.5 )
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:251:34:
IF ( IPHAS.LT.1 .OR. IPHAS.GT.5 )
1
Error: Cannot assign to a named constant at (1)
prog.f95:252:6:
$ CALL ERRMSG( 'GETMOM--BAD INPUT VARIABLE IPHAS', .TRUE. )
1
Error: Invalid character in name at (1)
prog.f95:253:1:
IF ( IPHAS.EQ.3 .AND. (GG.LE.-1.0 .OR. GG.GE.1.0) )
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:253:52:
IF ( IPHAS.EQ.3 .AND. (GG.LE.-1.0 .OR. GG.GE.1.0) )
1
Error: Cannot assign to a named constant at (1)
prog.f95:254:6:
$ CALL ERRMSG( 'GETMOM--BAD INPUT VARIABLE GG', .TRUE. )
1
Error: Invalid character in name at (1)
prog.f95:255:1:
IF ( NMOM.LT.2 )
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:255:17:
IF ( NMOM.LT.2 )
1
Error: Cannot assign to a named constant at (1)
prog.f95:256:6:
$ CALL ERRMSG( 'GETMOM--BAD INPUT VARIABLE NMOM', .TRUE. )
1
Error: Invalid character in name at (1)
prog.f95:259:1:
PMOM(0) = 1.0
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:260:1:
DO 10 K = 1, NMOM
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:261:1:
PMOM(K) = 0.0
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:264:1:
IF ( IPHAS.EQ.2 ) THEN
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:265:0:
C ** RAYLEIGH PHASE FUNCTION
Error: Unclassifiable statement at (1)
prog.f95:266:1:
PMOM(2) = 0.1
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:268:1:
ELSE IF ( IPHAS.EQ.3 ) THEN
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:269:0:
C ** HENYEY-GREENSTEIN PHASE FCN
Error: Unclassifiable statement at (1)
prog.f95:270:1:
DO 20 K = 1, NMOM
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:271:1:
PMOM(K) = GG**K
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:274:1:
ELSE IF ( IPHAS.EQ.4 ) THEN
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:275:0:
C ** HAZE-L PHASE FUNCTION
Error: Unclassifiable statement at (1)
prog.f95:276:1:
DO 30 K = 1, MIN0(82,NMOM)
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:277:1:
PMOM(K) = HAZELM(K) / ( 2*K+1 )
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:280:1:
ELSE IF ( IPHAS.EQ.5 ) THEN
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:281:0:
C ** CLOUD C.1 PHASE FUNCTION
Error: Unclassifiable statement at (1)
prog.f95:282:1:
DO 40 K = 1, MIN0(298,NMOM)
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:283:1:
PMOM(K) = CLDMOM(K) / ( 2*K+1 )
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:286:1:
END IF
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:288:1:
RETURN
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:289:1:
END
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:290:1:
SUBROUTINE PRTFIN( UTAU, NTAU, UMU, NUMU, PHI, NPHI, MAXULV,
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:290:62:
SUBROUTINE PRTFIN( UTAU, NTAU, UMU, NUMU, PHI, NPHI, MAXULV,
1
Error: Invalid character in name at (1)
prog.f95:291:6:
$ MAXUMU, ONLYFL, AZMAVG, RFLDIR, RFLDN, FLUP,
1
Error: Invalid character in name at (1)
prog.f95:292:6:
$ DFDT, U0U, UU, TSTFIR, TSTFDN, TSTFUP,
1
Error: Invalid character in name at (1)
prog.f95:293:6:
$ TSTDFD, TSTUU, MAXTAU, MAXMU, MAXAZ )
1
Error: Invalid character in name at (1)
prog.f95:295:0:
C PRINT 'DISORT' RESULTS AND, DIRECTLY BENEATH THEM, THEIR
Error: Unclassifiable statement at (1)
prog.f95:296:0:
C RATIOS TO THE CORRECT ANSWERS; PRINT NUMBER OF NON-UNIT
Error: Unclassifiable statement at (1)
prog.f95:296:54:
C RATIOS TO THE CORRECT ANSWERS; PRINT NUMBER OF NON-UNIT
1
Error: Expected comma in I/O list at (1)
prog.f95:297:0:
C RATIOS THAT OCCUR.
Error: Unclassifiable statement at (1)
prog.f95:299:0:
C INPUT : TSTFIR CORRECT DIRECT FLUX
Error: Unclassifiable statement at (1)
prog.f95:300:0:
C TSTFDN CORRECT DIFFUSE DOWN FLUX
Error: Unclassifiable statement at (1)
prog.f95:301:0:
C TSTFUP CORRECT DIFFUSE UP FLUX
Error: Unclassifiable statement at (1)
prog.f95:302:0:
C TSTDFD CORRECT D(FLUX)/D(OPTICAL DEPTH)
Error: Unclassifiable statement at (1)
prog.f95:303:0:
C TSTUU CORRECT INTENSITY OR AZIM-AVG INTENSITY
Error: Unclassifiable statement at (1)
prog.f95:304:0:
C AZMAVG TRUE, CHECK AZIMUTHALLY-AVERAGED INTENSITY ONLY
Error: Unclassifiable statement at (1)
prog.f95:305:0:
C FALSE, CHECK FULL INTENSITY
Error: Unclassifiable statement at (1)
prog.f95:306:0:
C (REMAINING INPUT = 'DISORT' I/O VARIABLES)
Error: Unclassifiable statement at (1)
prog.f95:308:1:
LOGICAL ONLYFL, AZMAVG, BADRAT
1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:34:22:
CHARACTER HEADER*127
1
prog.f95:308:32:
LOGICAL ONLYFL, AZMAVG, BADRAT
2
Error: Two main PROGRAMs at (1) and (2)