source: LMDZ5/trunk/libf/phymar/surrtab.F90 @ 3080

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 822 bytes
RevLine 
[2089]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.