source: LMDZ5/branches/IPSLCM6.0.10/libf/phymar/suecaebc.F90 @ 3172

Last change on this file since 3172 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: 1.2 KB
Line 
1SUBROUTINE SUECAEBC
2
3!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
4
5!     PURPOSE.
6!     --------
7
8!**   INTERFACE.
9!     ----------
10!        CALL *SUECAEBC* FROM *SUECRAD*
11
12!        EXPLICIT ARGUMENTS :
13!        --------------------
14!     ==== INPUTS ===
15!     ==== OUTPUTS ===
16
17!        IMPLICIT ARGUMENTS :   NONE
18!        --------------------
19
20!     METHOD.
21!     -------
22
23
24!     EXTERNALS.
25!     ----------
26
27!          NONE
28
29!     REFERENCE.
30!     ----------
31
32!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
33!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
34
35!     AUTHOR.
36!     -------
37!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
38
39!     MODIFICATIONS.
40!     --------------
41!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
42
43!-----------------------------------------------------------------------
44
45      call suecaebc_01
46      call suecaebc_02
47      call suecaebc_03
48      call suecaebc_04
49      call suecaebc_05
50      call suecaebc_06
51      call suecaebc_07
52      call suecaebc_08
53      call suecaebc_09
54      call suecaebc_10
55      call suecaebc_11
56      call suecaebc_12
57
58!-----------------------------------------------------------------------
59
60RETURN
61END SUBROUTINE SUECAEBC
Note: See TracBrowser for help on using the repository browser.