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 initial ibuffr array
integer, intent(in) :: cpl_min_vers ! minor version from coupler initial ibuffr array
integer, intent(in) :: expect_maj_vers ! major version of the coupler I'm expecting
integer, intent(in) :: expect_min_vers ! minor version of the coupler I'm expecting
REVISION HISTORY:
02.09.17 Mariana Vertenstein Updated to clm2_1 data structures