writestat_2D_nc Subroutine

public subroutine writestat_2D_nc(ncid, nvar, ncname, vars, nrec, dim1, dim2)

Arguments

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

Calls

proc~~writestat_2d_nc~~CallsGraph proc~writestat_2d_nc writestat_2D_nc nf90_inq_varid nf90_inq_varid proc~writestat_2d_nc->nf90_inq_varid nf90_put_var nf90_put_var proc~writestat_2d_nc->nf90_put_var nf90_sync nf90_sync proc~writestat_2d_nc->nf90_sync

Called by

proc~~writestat_2d_nc~~CalledByGraph proc~writestat_2d_nc writestat_2D_nc interface~writestat_nc writestat_nc interface~writestat_nc->proc~writestat_2d_nc proc~eb EB proc~eb->proc~writestat_2d_nc 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_2D_nc(ncid,nvar,ncname,vars,nrec,dim1,dim2)
    implicit none
    integer, intent(in)                      :: ncid,nvar,dim1,dim2
    integer, intent(in)                      :: nrec
    real,dimension(:,:,:),intent(in)         :: vars
    character(*), dimension(:,:),intent(in)  :: ncname

    integer :: iret,n,varid
    do n=1,nvar
      iret = nf90_inq_varid(ncid, ncname(n,1), VarID)
      iret = nf90_put_var(ncid, VarID, vars(1:dim1,1:dim2,n),(/1,1,nrec/),(/dim1,dim2,1/))
    end do
    iret = nf90_sync(ncid)

  end subroutine writestat_2D_nc