writestat_time_nc Subroutine

public subroutine writestat_time_nc(ncid, nvar, ncname, vars, nrec, lraise)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
integer, intent(in) :: nvar
character(len=*), intent(in), dimension(:,:) :: ncname
real, intent(in), dimension(nvar) :: vars
integer, intent(inout) :: nrec
logical, intent(in) :: lraise

Calls

proc~~writestat_time_nc~~CallsGraph proc~writestat_time_nc writestat_time_nc nf90_inq_varid nf90_inq_varid proc~writestat_time_nc->nf90_inq_varid nf90_put_var nf90_put_var proc~writestat_time_nc->nf90_put_var nf90_sync nf90_sync proc~writestat_time_nc->nf90_sync

Called by

proc~~writestat_time_nc~~CalledByGraph proc~writestat_time_nc writestat_time_nc interface~writestat_nc writestat_nc interface~writestat_nc->proc~writestat_time_nc proc~eb EB proc~eb->interface~writestat_nc proc~fielddump fielddump proc~fielddump->interface~writestat_nc proc~ibmwallfun ibmwallfun proc~ibmwallfun->interface~writestat_nc proc~statsdump statsdump proc~statsdump->interface~writestat_nc program~dalesurban DALESURBAN program~dalesurban->proc~eb program~dalesurban->proc~fielddump program~dalesurban->proc~ibmwallfun program~dalesurban->proc~statsdump

Source Code

  subroutine writestat_time_nc(ncid,nvar,ncname,vars,nrec,lraise)
    implicit none
    integer, intent(in)                      :: ncid,nvar
    integer, intent(inout)                   :: nrec
    real,dimension(nvar),intent(in)          :: vars
    character(*), dimension(:,:),intent(in)  :: ncname
    logical, intent(in)                      :: lraise

    integer :: iret,n,varid
    !write(*,*) 'time-nc'
    if(lraise) then
      nrec = nrec+1
    end if
    do n=1,nvar
       iret = nf90_inq_varid(ncid, ncname(n,1), VarID)
       iret = nf90_put_var(ncid, VarID, vars(n), start=(/nrec/))
    end do
    iret = nf90_sync(ncid)

  end subroutine writestat_time_nc