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