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    proj%lat1 =    -999.9
12    proj%lon1 =    -999.9
13    proj%dx    =    -999.9
14    proj%stdlon =   -999.9
15    proj%truelat1 = -999.9
16    proj%truelat2 = -999.9
17    proj%hemi     = 0.0
18    proj%cone     = -999.9
19    proj%polei    = -999.9
20    proj%polej    = -999.9
21    proj%rsw      = -999.9
22    proj%knowni   = -999.9
23    proj%knownj   = -999.9
24    proj%init     = .false.
25 
26 end subroutine da_map_init
27 
28