source: branches/jerome/src_flexwrf_v3.1/wrf_map_utils_mod.f90 @ 16

Last change on this file since 16 was 16, checked in by jebri, 10 years ago

sources for flexwrf v3.1

File size: 4.2 KB
Line 
1!***********************************************************************
2!* Copyright 2012,2013                                                *
3!* Jerome Brioude, Delia Arnold, Andreas Stohl, Wayne Angevine,       *
4!* John Burkhart, Massimo Cassiani, Adam Dingwell, Richard C Easter, Sabine Eckhardt,*
5!* Stephanie Evan, Jerome D Fast, Don Morton, Ignacio Pisso,          *
6!* Petra Seibert, Gerard Wotawa, Caroline Forster, Harald Sodemann,   *
7!*                                                                     *
8!* This file is part of FLEXPART WRF                                   *
9!*                                                                     *
10!* FLEXPART is free software: you can redistribute it and/or modify    *
11!* it under the terms of the GNU General Public License as published by*
12!* the Free Software Foundation, either version 3 of the License, or   *
13!* (at your option) any later version.                                 *
14!*                                                                     *
15!* FLEXPART is distributed in the hope that it will be useful,         *
16!* but WITHOUT ANY WARRANTY; without even the implied warranty of      *
17!* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the       *
18!* GNU General Public License for more details.                        *
19!*                                                                     *
20!* You should have received a copy of the GNU General Public License   *
21!* along with FLEXPART.  If not, see <http://www.gnu.org/licenses/>.   *
22!***********************************************************************
23! file include_map_utils - created 22-nov-2005
24!
25!   this file contains the "module data" from
26!       file .../wrfsi2.1/src/mod/module_map_utils.F
27!-----------------------------------------------------------------------
28
29module wrf_map_utils_mod
30      implicit none
31
32      logical :: proj_init, proj_cyclic
33
34      integer :: proj_code, proj_nx, proj_ny
35      integer :: proj_latlon, proj_merc, proj_lc, proj_ps, proj_rotlat
36      real :: proj_lat1, proj_lon1, proj_dx, &
37           proj_dlat, proj_dlon, proj_clat, proj_clon, &
38           proj_stdlon, proj_truelat1, proj_truelat2, &
39           proj_hemi, proj_cone, proj_polei, proj_polej, &
40           proj_rsw, proj_rebydx
41      real :: pi, deg_per_rad, rad_per_deg, earth_radius_m
42
43!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
44! ! define data structures to define various projections
45!
46! type proj_info
47!
48!   logical        proj_init     ! flag to indicate if this struct is
49!                                ! ready for use
50!   logical        proj_cyclic   ! flag indicating if this grid
51!                                ! is cyclic in the longitudinal
52!                                ! direction...happens with
53!                                ! global lat/lon grids like gfs/avn
54!   integer        proj_code     ! integer code for projection type
55!   integer        proj_nx
56!   integer        proj_ny
57!   real           proj_lat1    ! sw latitude (1,1) in degrees (-90->90n)
58!   real           proj_lon1    ! sw longitude (1,1) in degrees (-180->180e)
59!   real           proj_dx       ! grid spacing in meters at truelats, used
60!                                ! only for ps, lc, and merc projections
61!   real           proj_dlat     ! lat increment for lat/lon grids
62!   real           proj_dlon     ! lon increment for lat/lon grids
63!   real           proj_clat     ! center latitude of grid
64!   real           proj_clon     ! center longitude of grid
65!   real           proj_stdlon   ! longitude parallel to y-axis (-180->180e)
66!   real           proj_truelat1 ! first true latitude (all projections)
67!   real           proj_truelat2 ! second true lat (lc only)
68!   real           proj_hemi     ! 1 for nh, -1 for sh
69!   real           proj_cone     ! cone factor for lc projections
70!   real           proj_polei    ! computed i-location of pole point
71!   real           proj_polej    ! computed j-location of pole point
72!   real           proj_rsw      ! computed radius to sw corner
73!   real           proj_rebydx   ! earth radius divided by dx
74!
75! end type proj_info
76!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
77end module wrf_map_utils_mod
Note: See TracBrowser for help on using the repository browser.
hosted by ZAMG