writestat_3D_short_nc Subroutine

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

Arguments

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

Calls

proc~~writestat_3d_short_nc~~CallsGraph proc~writestat_3d_short_nc writestat_3D_short_nc nf90_inq_varid nf90_inq_varid proc~writestat_3d_short_nc->nf90_inq_varid nf90_put_var nf90_put_var proc~writestat_3d_short_nc->nf90_put_var nf90_sync nf90_sync proc~writestat_3d_short_nc->nf90_sync

Called by

proc~~writestat_3d_short_nc~~CalledByGraph proc~writestat_3d_short_nc writestat_3D_short_nc interface~writestat_nc writestat_nc interface~writestat_nc->proc~writestat_3d_short_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_3D_short_nc(ncid,nvar,ncname,vars,nrec,dim1,dim2,dim3)
    implicit none
    integer, intent(in)                      :: ncid,nvar,dim1,dim2,dim3
    integer, intent(in)                      :: nrec
    integer(KIND=selected_int_kind(4)),dimension(dim1,dim2,dim3,nvar),intent(in)       :: vars
    character(*), dimension(:,:),intent(in)  :: ncname

    integer :: iret,n,varid
    !write(*,*) '3Dnc short'
    do n=1,nvar
      iret = nf90_inq_varid(ncid, ncname(n,1), VarID)
      iret = nf90_put_var(ncid, VarID, vars(1:dim1,1:dim2,1:dim3,n),(/1,1,1,nrec/),(/dim1,dim2,dim3,1/))
    end do
    iret = nf90_sync(ncid)

  end subroutine writestat_3D_short_nc