do_3d_bdy_ncdf - (Source File: ncdf_3d_bdy.F90)

INTERFACE:

    subroutine do_3d_bdy_ncdf(loop)

DESCRIPTION:

kurt,kurt USES:

    use time, only: day,month,secondsofday,days_in_mon,leapyear,secsprday
    IMPLICIT NONE

INPUT PARAMETERS:

    integer, intent(in)                 :: loop

REVISION HISTORY:

    Original author(s): Karsten Bolding & Hans Burchard

LOCAL VARIABLES:

    integer         :: err
    REALTYPE        :: rat
    integer         :: monthsecs,prev,this,next
    logical, save   :: first=.true.
    integer, save   :: loop0
    REALTYPE        :: t
    REALTYPE, save  :: t1=_ZERO_,t2=-_ONE_
    integer         :: i,j,k,l,n