Context Navigation

surrtftr.F90 @ 2297

Last change on this file since 2297 was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM

Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence

Property copyright set to
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

File size: 3.9 KB

Rev	Line
[1989]	1	SUBROUTINE SURRTFTR
	2
	3	! Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
	4	! by JJMorcrette, ECMWF
	5	! ------------------------------------------------------------------
	6
	7	USE PARKIND1 ,ONLY : JPIM ,JPRB
	8	USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
	9
	10	USE YOERRTFTR, ONLY : NGC ,NGS ,NGN ,NGB ,NGM , WT
	11
	12	! ------------------------------------------------------------------
	13
	14	IMPLICIT NONE
	15	REAL(KIND=JPRB) :: ZHOOK_HANDLE
	16	IF (LHOOK) CALL DR_HOOK('SURRTFTR',0,ZHOOK_HANDLE)
	17	NGC( :) = (/8, 14, 16, 14, 16, 8, 12, 8, 12, 6, 8, 8, 4, 2, 2, 2 /)
	18
	19	NGS( :) = (/&
	20	& 8, 22, 38, 52, 68, 76, 88, 96, &
	21	& 108, 114, 122, 130, 134, 136, 138, 140/)
	22	NGM( :) = (/&
	23	& 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &! Band 1
	24	& 1,2,3,4,5,6,7,8,9,10,11,12,13,13,14,14, &! Band 2
	25	& 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &! Band 3
	26	& 1,2,3,4,5,6,7,8,9,10,11,12,13,14,14,14, &! Band 4
	27	& 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &! Band 5
	28	& 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &! Band 6
	29	& 1,1,2,2,3,4,5,6,7,8,9,10,11,11,12,12, &! Band 7
	30	& 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &! Band 8
	31	& 1,2,3,4,5,6,7,8,9,9,10,10,11,11,12,12, &! Band 9
	32	& 1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6, &! Band 10
	33	& 1,2,3,3,4,4,5,5,6,6,7,7,7,8,8,8, &! Band 11
	34	& 1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &! Band 12
	35	& 1,1,1,2,2,2,3,3,3,3,4,4,4,4,4,4, &! Band 13
	36	& 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &! Band 14
	37	& 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &! Band 15
	38	& 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2/) ! Band 16
	39
	40	NGN( :) = (/&
	41	& 2,2,2,2,2,2,2,2, &! Band 1
	42	& 1,1,1,1,1,1,1,1,1,1,1,1,2,2, &! Band 2
	43	& 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &! Band 3
	44	& 1,1,1,1,1,1,1,1,1,1,1,1,1,3, &! Band 4
	45	& 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &! Band 5
	46	& 2,2,2,2,2,2,2,2, &! Band 6
	47	& 2,2,1,1,1,1,1,1,1,1,2,2, &! Band 7
	48	& 2,2,2,2,2,2,2,2, &! Band 8
	49	& 1,1,1,1,1,1,1,1,2,2,2,2, &! Band 9
	50	& 2,2,2,2,4,4, &! Band 10
	51	& 1,1,2,2,2,2,3,3, &! Band 11
	52	& 1,1,1,1,2,2,4,4, &! Band 12
	53	& 3,3,4,6, &! Band 13
	54	& 8,8, &! Band 14
	55	& 8,8, &! Band 15
	56	& 8,8/) ! Band 16
	57
	58	NGB( :) = (/&
	59	& 1,1,1,1,1,1,1,1, &! Band 1
	60	& 2,2,2,2,2,2,2,2,2,2,2,2,2,2, &! Band 2
	61	& 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, &! Band 3
	62	& 4,4,4,4,4,4,4,4,4,4,4,4,4,4, &! Band 4
	63	& 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, &! Band 5
	64	& 6,6,6,6,6,6,6,6, &! Band 6
	65	& 7,7,7,7,7,7,7,7,7,7,7,7, &! Band 7
	66	& 8,8,8,8,8,8,8,8, &! Band 8
	67	& 9,9,9,9,9,9,9,9,9,9,9,9, &! Band 9
	68	& 10,10,10,10,10,10, &! Band 10
	69	& 11,11,11,11,11,11,11,11, &! Band 11
	70	& 12,12,12,12,12,12,12,12, &! Band 12
	71	& 13,13,13,13, &! Band 13
	72	& 14,14, &! Band 14
	73	& 15,15, &! Band 15
	74	& 16,16/) ! Band 16
	75
	76	WT( :) = (/&
	77	& 0.1527534276_JPRB,0.1491729617_JPRB,0.1420961469_JPRB,0.1316886544_JPRB,&
	78	& 0.1181945205_JPRB,0.1019300893_JPRB,0.0832767040_JPRB,0.0626720116_JPRB,&
	79	& 0.0424925_JPRB ,0.0046269894_JPRB,0.0038279891_JPRB,0.0030260086_JPRB,&
	80	& 0.0022199750_JPRB,0.0014140010_JPRB,0.000533_JPRB ,0.000075_JPRB /)
	81
	82	! -----------------------------------------------------------------
	83	IF (LHOOK) CALL DR_HOOK('SURRTFTR',1,ZHOOK_HANDLE)
	84	END SUBROUTINE SURRTFTR

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format