setUp Subroutine

public subroutine setUp()

Arguments

None

Calls

proc~~setup~3~~CallsGraph proc~setup~3 setUp none~add_dimension FileMetadata%add_dimension proc~setup~3->none~add_dimension none~add_variable~2 FileMetadata%add_variable proc~setup~3->none~add_variable~2 none~create NetCDF4_FileFormatter%create proc~setup~3->none~create none~put_var~21 NetCDF4_FileFormatter%put_var proc~setup~3->none~put_var~21 insert insert none~add_dimension->insert proc~mapl_return MAPL_Return none~add_dimension->proc~mapl_return at at none~add_variable~2->at begin begin none~add_variable~2->begin get get none~add_variable~2->get interface~mapl_assert MAPL_Assert none~add_variable~2->interface~mapl_assert next next none~add_variable~2->next none~get_const_value Variable%get_const_value none~add_variable~2->none~get_const_value none~get_dimensions Variable%get_dimensions none~add_variable~2->none~get_dimensions none~get_shape UnlimitedEntity%get_shape none~add_variable~2->none~get_shape none~insert~7 StringVariableMap%insert none~add_variable~2->none~insert~7 none~is_empty UnlimitedEntity%is_empty none~add_variable~2->none~is_empty none~add_variable~2->proc~mapl_return push_back push_back none~add_variable~2->push_back nf90_create nf90_create none~create->nf90_create none~create->proc~mapl_return proc~mapl_verify MAPL_Verify none~create->proc~mapl_verify none~put_var_real64_4 NetCDF4_FileFormatter%put_var_real64_4 none~put_var~21->none~put_var_real64_4 none~get_shape->proc~mapl_return none~insert_pair StringVariableMap%insert_pair none~insert~7->none~insert_pair none~is_empty->proc~mapl_return none~get_value UnlimitedEntity%get_value none~is_empty->none~get_value none~put_var_real64_4->proc~mapl_return none~put_var_real64_4->proc~mapl_verify nf90_inq_varid nf90_inq_varid none~put_var_real64_4->nf90_inq_varid nf90_put_var nf90_put_var none~put_var_real64_4->nf90_put_var proc~mapl_return->at 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 none~get_value->proc~mapl_return

Source Code

   subroutine setUp()
      type (FileMetadata) :: metadata
      type (NetCDF4_FileFormatter) :: formatter

      call metadata%add_dimension('i',NX)
      call metadata%add_dimension('j',NY)
      call metadata%add_variable('a', Variable(type=pFIO_REAL32))
      call metadata%add_variable('u', Variable(type=pFIO_REAL32, dimensions='i,j'))
      call metadata%add_variable('v', Variable(type=pFIO_REAL32, dimensions='i,j'))

      call formatter%create('fake_data.nc4')
      call formatter%write(metadata)

      call formatter%put_var('a', A_EXPECTED)
      call formatter%put_var('u', U_EXPECTED)
      call formatter%put_var('v', V_EXPECTED)
      
      call formatter%close()

   end subroutine setUp