da_map_init.inc

1 subroutine da_map_init(proj)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: Initializes the map projection structure to missing values
5    !-----------------------------------------------------------------------
6 
7    implicit none
8 
9    type(proj_info), intent(inout)  :: proj
10 
11    if (trace_use_dull) call da_trace_entry("da_map_init")
12 
13    proj%lat1     = -999.9
14    proj%lon1     = -999.9
15    proj%dx       = -999.9
16    proj%stdlon   = -999.9
17    proj%truelat1 = -999.9
18    proj%truelat2 = -999.9
19    proj%hemi     = 0.0
20    proj%cone     = -999.9
21    proj%polei    = -999.9
22    proj%polej    = -999.9
23    proj%rsw      = -999.9
24    proj%knowni   = -999.9
25    proj%knownj   = -999.9
26    proj%init     = .false.
27 
28    if (trace_use_dull) call da_trace_exit("da_map_init")
29 
30 end subroutine da_map_init
31 
32