source: LMDZ5/branches/IPSLCM6.0.8/libf/phymar/suecaesd.F90 @ 4400

Last change on this file since 4400 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 SUECAESD
2
3!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
4
5!     PURPOSE.
6!     --------
7
8!**   INTERFACE.
9!     ----------
10!        CALL *SUECAESD* 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 SUECAESD_01
46      call SUECAESD_02
47      call SUECAESD_03
48      call SUECAESD_04
49      call SUECAESD_05
50      call SUECAESD_06
51      call SUECAESD_07
52      call SUECAESD_08
53      call SUECAESD_09
54      call SUECAESD_10
55      call SUECAESD_11
56      call SUECAESD_12
57
58!-----------------------------------------------------------------------
59
60RETURN
61END SUBROUTINE SUECAESD
Note: See TracBrowser for help on using the repository browser.