source: LMDZ5/branches/IPSLCM6.0.10/libf/phymar/suecaess.F90 @ 2901

Last change on this file since 2901 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 SUECAESS
2
3!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
4
5!     PURPOSE.
6!     --------
7
8!**   INTERFACE.
9!     ----------
10!        CALL *SUECAESS* 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 SUECAESS_01
46      call SUECAESS_02
47      call SUECAESS_03
48      call SUECAESS_04
49      call SUECAESS_05
50      call SUECAESS_06
51      call SUECAESS_07
52      call SUECAESS_08
53      call SUECAESS_09
54      call SUECAESS_10
55      call SUECAESS_11
56      call SUECAESS_12
57
58!-----------------------------------------------------------------------
59
60RETURN
61END SUBROUTINE SUECAESS
Note: See TracBrowser for help on using the repository browser.