write_metadata Subroutine

public subroutine write_metadata(this, rc)

Type Bound

RegridSupport

Arguments

Type IntentOptional Attributes Name
class(RegridSupport), intent(inout) :: this
integer, intent(out), optional :: rc

Calls

proc~~write_metadata~~CallsGraph proc~write_metadata RegridSupport%write_metadata ESMF_VMBarrier ESMF_VMBarrier proc~write_metadata->ESMF_VMBarrier ESMF_VMGetGlobal ESMF_VMGetGlobal proc~write_metadata->ESMF_VMGetGlobal none~create_par NetCDF4_FileFormatter%create_par proc~write_metadata->none~create_par proc~mapl_verify MAPL_Verify proc~write_metadata->proc~mapl_verify none~create_par->proc~mapl_verify nf90_create nf90_create none~create_par->nf90_create proc~mapl_return MAPL_Return none~create_par->proc~mapl_return proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception proc~mapl_return->proc~mapl_throw_exception at at proc~mapl_return->at insert insert proc~mapl_return->insert

Called by

proc~~write_metadata~~CalledByGraph proc~write_metadata RegridSupport%write_metadata program~main~17 main program~main~17->proc~write_metadata

Source Code

   subroutine write_metadata(this, rc)
      class (RegridSupport), intent(inout) :: this
      integer, optional, intent(out) :: rc
      type (ESMF_VM) :: vm_global
      integer :: status

!$$      if (local_pet == 0) then
         call this%formatter_lat_lon%create_par(this%out_file, comm=MPI_COMM_WORLD, rc=status)
         _VERIFY(status)
         call this%formatter_lat_lon%write(this%cfio_lat_lon, rc=status)
         _VERIFY(status)
         call this%formatter_lat_lon%close(rc=status)
         _VERIFY(status)
!$$       end if

      call ESMF_VMGetGlobal(vm_global, rc=status)
      _VERIFY(status)
      call ESMF_VMBarrier(vm_global, rc=status)
      _VERIFY(status)

   end subroutine write_metadata