C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/obcs/obcs_ad.flow,v 1.2 2007/10/09 00:07:14 jmc Exp $
C $Name:  $

C----------------------------------------
C subroutine  OBCS_DIAGS
C----------------------------------------
CADJ SUBROUTINE OBCS_DIAGS INPUT  = 1,2,3
CADJ SUBROUTINE OBCS_DIAGS OUTPUT =