Line data Source code
1 : ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2 : ! Copyright (c) 2015, Regents of the University of Colorado
3 : ! All rights reserved.
4 : !
5 : ! Redistribution and use in source and binary forms, with or without modification, are
6 : ! permitted provided that the following conditions are met:
7 : !
8 : ! 1. Redistributions of source code must retain the above copyright notice, this list of
9 : ! conditions and the following disclaimer.
10 : !
11 : ! 2. Redistributions in binary form must reproduce the above copyright notice, this list
12 : ! of conditions and the following disclaimer in the documentation and/or other
13 : ! materials provided with the distribution.
14 : !
15 : ! 3. Neither the name of the copyright holder nor the names of its contributors may be
16 : ! used to endorse or promote products derived from this software without specific prior
17 : ! written permission.
18 : !
19 : ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY
20 : ! EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
21 : ! MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
22 : ! THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
23 : ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
24 : ! OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
25 : ! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
26 : ! LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
27 : ! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28 : !
29 : ! History
30 : ! May 2015 - D. Swales - Original version
31 : ! Apr 2015 - D. Swales - Modified for RTTOVv11.3
32 : ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33 : MODULE MOD_COSP_RTTOV_INTERFACE
34 : USE COSP_KINDS, ONLY: wp
35 : IMPLICIT NONE
36 : ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37 : ! TYPE rttov_in
38 : ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39 : type rttov_in
40 : integer,pointer :: &
41 : nPoints, & ! Number of profiles to simulate
42 : nLevels, & ! Number of levels
43 : nSubCols, & ! Number of subcolumns
44 : month ! Month (needed for surface emissivity calculation)
45 : real(wp),pointer :: &
46 : zenang, & ! Satellite zenith angle
47 : co2, & ! Carbon dioxide
48 : ch4, & ! Methane
49 : n2o, & ! n2o
50 : co ! Carbon monoxide
51 : real(wp),dimension(:),pointer :: &
52 : surfem ! Surface emissivities for the channels
53 : real(wp),dimension(:),pointer :: &
54 : h_surf, & ! Surface height
55 : u_surf, & ! U component of surface wind
56 : v_surf, & ! V component of surface wind
57 : t_skin, & ! Surface skin temperature
58 : p_surf, & ! Surface pressure
59 : t2m, & ! 2 m Temperature
60 : q2m, & ! 2 m Specific humidity
61 : lsmask, & ! land-sea mask
62 : latitude, & ! Latitude
63 : longitude, & ! Longitude
64 : seaice ! Sea-ice?
65 : real(wp),dimension(:,:),pointer :: &
66 : p, & ! Pressure @ model levels
67 : ph, & ! Pressure @ model half levels
68 : t, & ! Temperature
69 : q, & ! Specific humidity
70 : o3 ! Ozone
71 :
72 : ! These fields below are needed ONLY for the RTTOV all-sky brightness temperature
73 : real(wp),dimension(:,:),pointer :: &
74 : tca, & ! Cloud fraction
75 : cldIce, & ! Cloud ice
76 : cldLiq, & ! Cloud liquid
77 : fl_rain, & ! Precipitation flux (startiform+convective rain) (kg/m2/s)
78 : fl_snow ! Precipitation flux (stratiform+convective snow)
79 : end type rttov_in
80 : CONTAINS
81 :
82 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
83 : ! SUBROUTINE cosp_rttov_init
84 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
85 0 : SUBROUTINE COSP_RTTOV_INIT()
86 :
87 0 : END SUBROUTINE COSP_RTTOV_INIT
88 : ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
89 : ! END MODULE
90 : ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
91 0 : END MODULE MOD_COSP_RTTOV_INTERFACE
|