Skip to content

Commit f66bb59

Browse files
kcadyperkcadyper
committed
Changes for MT_CKD_4.1
1 parent 02e23c1 commit f66bb59

File tree

1 file changed

+27
-28
lines changed

1 file changed

+27
-28
lines changed

‎src/contnm.f90

Lines changed: 27 additions & 28 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,5 @@
1-
! path: $HeadURL: https://svn.aer.com/svn/aer/project/RD/LBLRTM/trunk/src/contnm.f90 $
2-
! author: $Author: jmascio $
3-
! revision: $Revision: 32919 $
4-
! created: $Date: 2019-08-23 09:54:07 -0400 (Fri, 23 Aug 2019) $
5-
!
61
! --------------------------------------------------------------------------
7-
! | Copyright �, Atmospheric and Environmental Research, Inc., 2017 |
2+
! | Copyright �, Atmospheric and Environmental Research, Inc., 2022 |
83
! | |
94
! | All rights reserved. This source code is part of the LBLRTM software |
105
! | and is designed for scientific and research purposes. Atmospheric and |
@@ -19,7 +14,7 @@
1914
! | |
2015
! | This software is provided as is without any express or implied |
2116
! | warranties. |
22-
! | (http://www.rtweb.aer.com/) |
17+
! | (http://github.com/AER-RC) |
2318
! --------------------------------------------------------------------------
2419
!
2520
SUBROUTINE CONTNM(JRAD)
@@ -1029,15 +1024,15 @@ SUBROUTINE PRCNTM
10291024
COMMON /CNTPR/ CINFO1,CINFO2,cnam3,CINFO3,cnam4,CINFO4,CHEADING
10301025
!
10311026
!
1032-
CHARACTER*18 cnam3(9),cnam4(42)
1033-
CHARACTER*51 CINFO1(2,13),CINFO2(2,14),CINFO3(2,9),CINFO4(2,42)
1027+
CHARACTER*18 cnam3(9),cnam4(44)
1028+
CHARACTER*51 CINFO1(2,12),CINFO2(2,14),CINFO3(2,9),CINFO4(2,44)
10341029
CHARACTER*40 CHEADING(3,2)
10351030
!
1036-
WRITE (IPR,910) ((CINFO1(I,J),I=1,2),J=1,13)
1031+
WRITE (IPR,910) ((CINFO1(I,J),I=1,2),J=1,12)
10371032
WRITE (IPR,910) ((CINFO2(I,J),I=1,2),J=1,14)
10381033
WRITE (IPR,918) ((CHEADING(I,J),I=1,3),J=1,2)
10391034
WRITE (IPR,915) (cnam3(j),(CINFO3(I,J),I=1,2),J=1,9)
1040-
WRITE (IPR,915) (cnam4(j),(CINFO4(I,J),I=1,2),J=1,42)
1035+
WRITE (IPR,915) (cnam4(j),(CINFO4(I,J),I=1,2),J=1,44)
10411036

10421037
!
10431038
910 FORMAT (18x,2A51)
@@ -1053,8 +1048,8 @@ BLOCK DATA CNTINF
10531048
! Continuum information for output to TAPE6 in SUBROUTINE PRCNTM
10541049
!
10551050
COMMON /CNTPR/ CINFO1,CINFO2,CNAM3,CINFO3,CNAM4,CINFO4,CHEADING
1056-
CHARACTER*18 cnam3(9),cnam4(42)
1057-
CHARACTER*51 CINFO1(2,13),CINFO2(2,14),CINFO3(2,9),CINFO4(2,42)
1051+
CHARACTER*18 cnam3(9),cnam4(44)
1052+
CHARACTER*51 CINFO1(2,12),CINFO2(2,14),CINFO3(2,9),CINFO4(2,44)
10581053
CHARACTER*40 CHEADING(3,2)
10591054
!
10601055
DATA cnam3/ &
@@ -1111,24 +1106,24 @@ BLOCK DATA CNTINF
11111106
& ' " ', &
11121107
& ' " ', &
11131108
& ' mt_ckd_3.6 12.13', &
1114-
& ' mt_ckd_4.0 '/
1109+
& ' mt_ckd_4.0 12.14', &
1110+
& ' mt_ckd_4.0.1 ', &
1111+
& ' mt_ckd_4.1 12.15'/
11151112
! 123456789-123456789-123456789-123456789-123456789-1
11161113
!
11171114
DATA CINFO1/ &
11181115
& ' ', &
11191116
& ' ', &
1120-
& '*** CONTINUA mt_ckd_4.0 ', &
1117+
& '*** CONTINUA mt_ckd_4.1 ', &
11211118
& ' ', &
11221119
& ' ', &
11231120
& ' Most recent significant change ', &
1124-
& ' H2O SELF AND FOREIGN 0 - 20000 CM-1 ', &
1125-
& ' mt_ckd_4.0 - code/data are external (Sep 2022) ', &
1126-
& ' H2O SELF (T) 0 - 20000 CM-1 ', &
1127-
& ' mt_ckd_3.6 - power law T dependence (Jan 2022)', &
1128-
& ' H2O SELF (T) 0 - 20000 CM-1 ', &
1129-
& ' mt_ckd_3.5 - modify Cs,Tdep < 800 cm-1(Oct 2020)', &
1130-
& ' AIR 0 - 20000 CM-1 ', &
1131-
& ' mt_ckd_3.5 - modify 0-40 cm-1 (Oct 2020)', &
1121+
& ' H2O AIR 200 - 700 CM-1 ', &
1122+
& ' mt_ckd_4.1 - adjust for self FIR mod (Dec 2022)', &
1123+
& ' SELF 0 - 20000 CM-1 ', &
1124+
& ' mt_ckd_4.0 - revise code/data external(Sep 2022)', &
1125+
& ' SELF (T) 0 - 20000 CM-1 ', &
1126+
& ' mt_ckd_3.6 - power law T dependence (Jan 2022)', &
11321127
& ' CO2 AIR 0 - 10000 CM-1 ', &
11331128
& ' mt_ckd_2.5 - modify 2000-3000 cm-1 (Jan 2010)', &
11341129
& ' AIR (T) 2386 - 2434 CM-1 ', &
@@ -1273,11 +1268,15 @@ BLOCK DATA CNTINF
12731268
& ' Payne et al., Katkov et al. 1995, and Tretyakov e', &
12741269
& 't al. 2016, FIR - Odintsova et al. and ', &
12751270
& ' Burch/Grynvak 1979, IR - Burch/Alt 1984 and Burch', &
1276-
& '/Grynvak; H2O foreign: MW - Payne et al. ', &
1277-
& ' Water vapor self continuum temperature dependence ', &
1278-
& 'computed as a power law (Mlawer,Mascio) (June 2022)', &
1279-
& ' Water vapor continuum code/data now external ', &
1280-
& ' (Cady-Pereira/Mlawer) (Sep 2022)'/
1271+
& '/Grynvak; H2O foreign: MW - Payne et al. ', &
1272+
& ' Water vapor self continuum temperature dependence', &
1273+
& 'computed as a power law (Mlawer, Mascio) (Jun 2022)', &
1274+
& ' Water vapor continuum code/data now external (Cad', &
1275+
& 'y-Pereira/Mlawer) (Sep 2022)', &
1276+
& ' Added changes to handle negative frequencies for ', &
1277+
& 'water vapor continuum (Nov 2022)', &
1278+
& ' Revised foreign H2O continuum in far-IR to adjust', &
1279+
& 'for v3.5 changes to self (Mlawer, Mascio)(Dec 2022)'/
12811280
!
12821281
end block data CNTINF
12831282
!

0 commit comments

Comments
 (0)