The Intermediate Complexity Atmospheric Research model (ICAR)
A computationally efficient atmospheric model for downscaling.
 All Classes Files Functions Variables
Private Member Functions | List of all members
linear_theory_lut_disk_io::check_attribute Interface Reference

Private Member Functions

integer function check_attribute_r (filename, default_value, value_name)
 

Check that a named real attribute matches the value in a file More...

 
integer function check_attribute_i (filename, default_value, value_name)
 

Check that a named integer attribute matches the value in a file More...

 
integer function check_attribute_c (filename, default_value, value_name)
 

Check that a named character attribute matches the value in a file More...

 

Member Function/Subroutine Documentation

integer function linear_theory_lut_disk_io::check_attribute::check_attribute_c ( character(len=*), intent(in)  filename,
character(len=*), intent(in)  default_value,
character(len=*), intent(in)  value_name 
)
private


Check that a named character attribute matches the value in a file

Takes a filename, attribute name, and expected attribute value Reads the attribute from the file, and compares the results to the expected value. If the results match the function is successful and 0 is returned, else 1 is returned

Parameters
filenamename of the netCDF file
default_valueexpected value of the attribute
value_namename of the attribute to read
Return values
error0 if expected matches read, 1 otherwise
integer function linear_theory_lut_disk_io::check_attribute::check_attribute_i ( character(len=*), intent(in)  filename,
integer, intent(in)  default_value,
character(len=*), intent(in)  value_name 
)
private


Check that a named integer attribute matches the value in a file

Takes a filename, attribute name, and expected attribute value Reads the attribute from the file, and compares the results to the expected value. If the results match the function is successful and 0 is returned, else 1 is returned

Parameters
filenamename of the netCDF file
default_valueexpected value of the attribute
value_namename of the attribute to read
Return values
error0 if expected matches read, 1 otherwise
integer function linear_theory_lut_disk_io::check_attribute::check_attribute_r ( character(len=*), intent(in)  filename,
real, intent(in)  default_value,
character(len=*), intent(in)  value_name 
)
private


Check that a named real attribute matches the value in a file

Takes a filename, attribute name, and expected attribute value Reads the attribute from the file, and compares the results to the expected value. If the results are within 1e-20 of each other. they are assumed to match, and 0 is returned, else 1 is returned

Parameters
filenamename of the netCDF file
default_valueexpected value of the attribute
value_namename of the attribute to read
Return values
error0 if expected matches read, 1 otherwise

The documentation for this interface was generated from the following file: