! comments *** MODEL NSET NGAS NLEV NQPR JGAS(1), NISO(1) JGAS(2), NISO(2) ... JGAS(NGAS) NISO(NGAS) P(1) P(2) ... ... P(NLEV) 0 [=ISET for TK] TK(1) TK(2) ... ... TK(NLEV) ! Vibrational Partition functions [repeat for IQPR = 1, NQPR ] JGAS(IGAS) JISO(IISO) QV(1,IISO,IGAS) QV(2,IISO,IGAS) ... ... QV(NLEV,IISO,IGAS) [end repeat for IQPR] ! Vibrational Temperatures [repeat for ISET = 1, NSET] ISET JGAS(IGAS) JISO(IISO) IVSGQ(ISET) ENERGY(ISET) TV(1,ISET), TV(2,ISET) ... ... TV(NLEV,ISET) [end repeat for ISET] [eof]
! Non-LTE CO2 Vibrational temperatures for US Std.Atmos *** 6 3 1 5 1 2 1 5.529E+01, 2.871E+00, 2.190E-01, 1.050E-02, 3.200E-04 0 216.70, 250.40, 247.00, 198.60, 195.10 !QV Vibrational Partition functions 2 1 1.000331 1.000228 1.000165 1.000171 1.000196 !TV Vibrational Temperatures 1 2 1 2 667.3801 210.000 201.750 195.000 195.750 198.500 2 2 1 3 1285.4087 210.000 201.750 194.929 195.731 198.488 3 2 1 4 1335.1317 221.986 225.341 227.785 229.493 231.004 [eof]