module controlvars

  use kinds, only: i_kind

  implicit none

  integer(i_kind) nrf3_sf,nrf3_vp,nrf3_t,nrf3_q,nrf3_oz,nrf3_cw
  integer(i_kind) nrf3_sfwter,nrf3_vpwter
  integer(i_kind) nrf2_ps,nrf2_sst,nrf2_gust,nrf2_vis,nrf2_pblh,nrf2_dist
  integer(i_kind) nrf2_wspd10m,nrf2_td2m,nrf2_mxtm,nrf2_mitm,nrf2_pmsl
  integer(i_kind) nrf2_howv,nrf2_tcamt,nrf2_lcbas
  integer(i_kind) nrf2_uwnd10m,nrf2_vwnd10m
  integer(i_kind) nrf1_rad,nrf1_prec

  integer(i_kind) igust,ivis,ipblh,idist
  integer(i_kind) iwspd10m,itd2m,imxtm,imitm, &
                  ipmsl,ihowv,itcamt,ilcbas, &
                  iuwnd10m,ivwnd10m
  contains

  subroutine aka_controlvars
!***********************************************************************
! abstract: presscribe alternate names to the control variables        *
!                                                                      *
! program history log:                                                 *
!   2005-10-08  pondeca                                                *
!***********************************************************************
  implicit none

    igust=nrf2_gust
    ivis=nrf2_vis
    ipblh=nrf2_pblh
    idist=nrf2_dist
    iwspd10m=nrf2_wspd10m
    itd2m=nrf2_td2m
    imxtm=nrf2_mxtm
    imitm=nrf2_mitm
    ipmsl=nrf2_pmsl
    ihowv=nrf2_howv
    itcamt=nrf2_tcamt
    ilcbas=nrf2_lcbas
    iuwnd10m=nrf2_uwnd10m
    ivwnd10m=nrf2_vwnd10m

  end subroutine aka_controlvars

end module controlvars