read_metadata Subroutine

public subroutine read_metadata(this)

Type Bound

RegridSupport

Arguments

Type IntentOptional Attributes Name
class(RegridSupport), intent(inout) :: this

Calls

proc~~read_metadata~~CallsGraph proc~read_metadata RegridSupport%read_metadata none~inq_dim NetCDF4_FileFormatter%inq_dim proc~read_metadata->none~inq_dim nf90_inq_dimid nf90_inq_dimid none~inq_dim->nf90_inq_dimid nf90_inquire_dimension nf90_inquire_dimension none~inq_dim->nf90_inquire_dimension proc~mapl_return MAPL_Return none~inq_dim->proc~mapl_return proc~mapl_verify MAPL_Verify none~inq_dim->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Called by

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

Source Code

   subroutine read_metadata(this)
      class (RegridSupport), intent(inout) :: this

      associate (formatter => this%formatter_cubed_sphere )
         call formatter%open(this%in_file, mode=pFIO_READ)
         this%cfio_cubed_sphere = formatter%read()
         this%nt = formatter%inq_dim('time')
         call formatter%close()
      end associate

    end subroutine read_metadata