csm_compat

INTERFACE:

   subroutine csm_compat(cpl_maj_vers, cpl_min_vers, expect_maj_vers, &
                         expect_min_vers)

DESCRIPTION:

   Checks that the message recieved from the coupler is compatable
   with the type of message that I expect to recieve.  If the minor
   version numbers differ I print a warning message.  If the major
   numbers differ I abort since that means that the change is
   drastic enough that I can't run with the differences.
   Original Author: Erik Kluzek Dec/97

PARAMETERS:

     implicit none
     integer, intent(in) :: cpl_maj_vers    ! major version from coupler initi
     integer, intent(in) :: cpl_min_vers    ! minor version from coupler initi
     integer, intent(in) :: expect_maj_vers ! major version of the coupler I'm
     integer, intent(in) :: expect_min_vers ! minor version of the coupler I'm

REVISION HISTORY:

    02.09.17 Mariana Vertenstein Updated to clm2_1 data structures