do_2d_bdy_ncdf -

INTERFACE:

    subroutine do_2d_bdy_ncdf(loop)
DESCRIPTION:

kurt,kurt USES:

    IMPLICIT NONE
INPUT PARAMETERS:
    integer, intent(in)                 :: loop
REVISION HISTORY:
    Original author(s): Karsten Bolding & Hans Burchard
LOCAL VARIABLES:
    integer,save              :: i,n
    integer                   :: err
    logical                   :: first=.true.
    REALTYPE                  :: t
    REALTYPE, save            :: t1,t2= -_ONE_,loop0