INTERFACE:
subroutine do_2d_bdy_ncdf(loop)DESCRIPTION:
kurt,kurt USES:
IMPLICIT NONEINPUT PARAMETERS:
integer, intent(in) :: loopREVISION HISTORY:
Original author(s): Karsten Bolding & Hans BurchardLOCAL VARIABLES:
integer,save :: i,n integer :: err logical :: first=.true. REALTYPE :: t REALTYPE, save :: t1,t2= -_ONE_,loop0