source: LMDZ5/branches/IPSLCM6.0.8/libf/phymar/surrtab.F90 @ 5455

Last change on this file since 5455 was 2160, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

File size: 822 bytes
Line 
1SUBROUTINE SURRTAB
2
3!     -----------------------------------------------------------------
4!        * E.C.M.W.F. PHYSICS PACKAGE ** AER'S RRTM LW RADIATION **
5
6!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
7
8!     -----------------------------------------------------------------
9
10#include "tsmbkind.h"
11
12USE YOERRTAB , ONLY : TRANS, BPADE
13
14IMPLICIT NONE
15
16!     LOCAL INTEGER SCALARS
17INTEGER_M :: ITR
18
19!     LOCAL REAL SCALARS
20REAL_B :: ZTAU, ZTFN
21
22
23BPADE=_ONE_/0.278_JPRB
24TRANS(0)   =_ONE_
25TRANS(5000)=_ZERO_
26DO ITR=1,4970
27  ZTFN=REAL(ITR)/5000._JPRB
28  ZTAU=BPADE*ZTFN/(_ONE_-ZTFN)
29  TRANS(ITR)=EXP(-ZTAU)
30! write(6,*) ITR,TRANS(ITR)
31ENDDO
32DO ITR=4971,4999
33  TRANS(ITR)=_ZERO_
34! write(6,*) ITR,TRANS(ITR)
35ENDDO
36
37!     -----------------------------------------------------------------
38
39RETURN
40END SUBROUTINE SURRTAB
Note: See TracBrowser for help on using the repository browser.