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



kklingbe 2017-10-02