INTERFACE:
subroutine do_3d_bdy_ncdf(loop)DESCRIPTION:
kurt,kurt USES:
use time, only: day,month,secondsofday,days_in_mon,leapyear,secsprday IMPLICIT NONEINPUT PARAMETERS:
integer, intent(in) :: loopREVISION HISTORY:
Original author(s): Karsten Bolding & Hans BurchardLOCAL 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