! $Id: ropp_pp_msis.f90 3491 2013-02-06 12:43:43Z idculv $

!****m* Modules/ropp_pp_BARO *
!
! NAME
!    ropp_pp_BARO - Interface module for routines to obtain Baroclim bending angle
!                   profiles in the ROPP pre-processor
!
! SYNOPSIS
!    use ropp_pp_BARO
!
! DESCRIPTION
!    This module provides interfaces for all BARO bending angle routines in the
!    ROPP Preprocessor library.
!
! SEE ALSO
!    ropp_pp
!
! AUTHOR
!   Met Office, Exeter, UK.
!   Any comments on this software should be given via the ROM SAF
!   Helpdesk at http://www.romsaf.org
!
! COPYRIGHT
!   (c) EUMETSAT. All rights reserved.
!   For further details please refer to the file COPYRIGHT
!   which you should have received as part of this distribution.
!
!****

MODULE ropp_pp_BARO_types

  USE typesizes, ONLY: wp => EightByteReal

!-------------------------------------------------------------------------------
! 1. BAROclim coefficients
!-------------------------------------------------------------------------------

  TYPE BAROcoeff_ba
     REAL(wp), DIMENSION(:,:), POINTER :: Ac => null()
     REAL(wp), DIMENSION(:),   POINTER :: Aa => null()
     REAL(wp), DIMENSION(:),   POINTER :: Ab => null()
     REAL(wp), DIMENSION(:),   POINTER :: Ad => null()
     REAL(wp), DIMENSION(:),   POINTER :: Ae => null()
  END TYPE BAROcoeff_ba

  LOGICAL, SAVE, PUBLIC :: BARO_read = .false.

END MODULE ropp_pp_BARO_types

MODULE ropp_pp_BARO

  USE ropp_pp_BARO_types

!-------------------------------------------------------------------------------
! 2. Read BAROclim file
!-------------------------------------------------------------------------------

  INTERFACE ropp_pp_read_BARO
       SUBROUTINE ropp_pp_read_BARO_ba(file, month, coeff)
       USE ropp_pp_BARO_types
       CHARACTER(len=*),     INTENT(in)  :: file
       INTEGER,              INTENT(in)  :: month
       TYPE(BAROcoeff_ba),   INTENT(out) :: coeff
     END SUBROUTINE ropp_pp_read_BARO_ba
  END INTERFACE

    INTERFACE
     SUBROUTINE ropp_pp_bangle_BARO(mfile, month, lat, alt, bangle)
       USE typesizes, ONLY: wp => EightByteReal
       CHARACTER(len=*),    INTENT(inout)  :: mfile
       INTEGER,                INTENT(in)  :: month
       REAL(wp),               INTENT(in)  :: lat
       REAL(wp), DIMENSION(:), INTENT(in)  :: alt
       REAL(wp), DIMENSION(:), INTENT(out) :: bangle
     END SUBROUTINE ropp_pp_bangle_BARO
  END INTERFACE

END MODULE ropp_pp_BARO