var/da/da_tools/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%latinc   = -999.9
  27    proj%loninc   = -999.9
  28    proj%init     = .false.
  29
  30    if (trace_use_dull) call da_trace_exit("da_map_init")
  31
  32 end subroutine da_map_init
  33
  34