source: LMDZ5/branches/IPSLCM6.0.8/libf/phymar/suecaesu.F90 @ 5434

Last change on this file since 5434 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 SUECAESU
2
3!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
4
5!     PURPOSE.
6!     --------
7
8!**   INTERFACE.
9!     ----------
10!        CALL *SUECAESU* 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 SUECAESU_01
46      call SUECAESU_02
47      call SUECAESU_03
48      call SUECAESU_04
49      call SUECAESU_05
50      call SUECAESU_06
51      call SUECAESU_07
52      call SUECAESU_08
53      call SUECAESU_09
54      call SUECAESU_10
55      call SUECAESU_11
56      call SUECAESU_12
57
58!-----------------------------------------------------------------------
59
60RETURN
61END SUBROUTINE SUECAESU
Note: See TracBrowser for help on using the repository browser.