fielddump Subroutine

public subroutine fielddump()

Uses

  • proc~~fielddump~~UsesGraph proc~fielddump fielddump module~modglobal modglobal proc~fielddump->module~modglobal module~modstat_nc modstat_nc proc~fielddump->module~modstat_nc module~modmpi modmpi module~modstat_nc->module~modmpi netcdf netcdf module~modstat_nc->netcdf mpi mpi module~modmpi->mpi

Arguments

None

Calls

proc~~fielddump~~CallsGraph proc~fielddump fielddump interface~writestat_nc writestat_nc proc~fielddump->interface~writestat_nc proc~compute_derived compute_derived proc~fielddump->proc~compute_derived proc~writestat_1d_nc writestat_1D_nc interface~writestat_nc->proc~writestat_1d_nc proc~writestat_2d_nc writestat_2D_nc interface~writestat_nc->proc~writestat_2d_nc proc~writestat_3d_nc writestat_3D_nc interface~writestat_nc->proc~writestat_3d_nc proc~writestat_3d_short_nc writestat_3D_short_nc interface~writestat_nc->proc~writestat_3d_short_nc proc~writestat_time_nc writestat_time_nc interface~writestat_nc->proc~writestat_time_nc poisson_rhs_diagnostic poisson_rhs_diagnostic proc~compute_derived->poisson_rhs_diagnostic nf90_inq_varid nf90_inq_varid proc~writestat_1d_nc->nf90_inq_varid nf90_put_var nf90_put_var proc~writestat_1d_nc->nf90_put_var nf90_sync nf90_sync proc~writestat_1d_nc->nf90_sync proc~writestat_2d_nc->nf90_inq_varid proc~writestat_2d_nc->nf90_put_var proc~writestat_2d_nc->nf90_sync proc~writestat_3d_nc->nf90_inq_varid proc~writestat_3d_nc->nf90_put_var proc~writestat_3d_nc->nf90_sync proc~writestat_3d_short_nc->nf90_inq_varid proc~writestat_3d_short_nc->nf90_put_var proc~writestat_3d_short_nc->nf90_sync proc~writestat_time_nc->nf90_inq_varid proc~writestat_time_nc->nf90_put_var proc~writestat_time_nc->nf90_sync

Called by

proc~~fielddump~~CalledByGraph proc~fielddump fielddump program~udales uDALES program~udales->proc~fielddump

Source Code

  subroutine fielddump
    use modglobal, only : ib,ie,ih,jb,je,jh,ke,kb,kh,rk3step,timee,&
                          tfielddump, tnextfielddump, lfielddump
    !use modmpi,    only : myid,cmyid
    !use modsubgriddata, only : ekm,sbshr
    use modstat_nc, only : writestat_nc
    implicit none

    real, allocatable :: vars(:,:,:,:)
    integer n

    if (.not. ((timee>=tnextfielddump) .or. (rk3step==0))) return

    if (.not. lfielddump) return

    if (rk3step/=3 .and. rk3step/=0) return

    do n=1,nvar
      if (derived_kind(n) /= 0) call compute_derived(derived_kind(n), dbuf(:,:,:,derived_slot(n)))
    end do

    if (rk3step == 3) tnextfielddump=tnextfielddump+tfielddump

    if (lhalos) then
      allocate(vars(ib-ih:ie+ih,jb-jh:je+jh,kb-kh:ke+kh,nvar)); vars = 0;
      do n=1,nvar
        vars(ib-ih:ie+ih,jb-jh:je+jh,kb-kh:ke+kh,n) = pfields(n)%point
      end do

    else
      allocate(vars(ib:ie,jb:je,kb:ke,nvar)); vars = 0;
      do n=1,nvar
        vars(ib:ie,jb:je,kb:ke,n) = pfields(n)%point
      end do
    end if

   call writestat_nc(ncid,1,tncname,(/timee/),nrec,.true.)
   !call writestat_nc(ncid,nvar,ncname,vars,nrec,imax+2,jmax+2,khigh-klow+1)
   call writestat_nc(ncid,nvar,ncname,vars,nrec,ihigh-ilow+1,jhigh-jlow+1,khigh-klow+1)

   deallocate(vars)

  end subroutine fielddump