source: LMDZ5/branches/testing/libf/phymar/suecaeor.F90 @ 3990

Last change on this file since 3990 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 SUECAEOR
2
3!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
4
5!     PURPOSE.
6!     --------
7
8!**   INTERFACE.
9!     ----------
10!        CALL *SUECAEOR* 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 SUECAEOR_01
46      call SUECAEOR_02
47      call SUECAEOR_03
48      call SUECAEOR_04
49      call SUECAEOR_05
50      call SUECAEOR_06
51      call SUECAEOR_07
52      call SUECAEOR_08
53      call SUECAEOR_09
54      call SUECAEOR_10
55      call SUECAEOR_11
56      call SUECAEOR_12
57
58!-----------------------------------------------------------------------
59
60RETURN
61END SUBROUTINE SUECAEOR
Note: See TracBrowser for help on using the repository browser.