checkpointcommon.F90

Go to the documentation of this file.

 
module checkpointer_common_mod
#ifndef TEST_MODE
  use netcdf, only : nf90_ebaddim, nf90_enotatt, nf90_enotvar, nf90_noerr, nf90_strerror
#else
  use dummy_netcdf_mod, only : nf90_ebaddim, nf90_enotatt, nf90_enotvar, nf90_noerr, nf90_strerror
#endif
  use logging_mod, only : log_error, log_log
  implicit none
 
  character(len=*), parameter ::  x_dim_key = "x", &                 !< X dimension/variable key
                                  y_dim_key="y", &                   
                                  z_dim_key="z", &                   
                                  zn_dim_key="zn", &                  
                                  q_dim_key="q", &
                                  u_key = "u_nogal", &                          
                                  v_key = "v_nogal", &                          
                                  w_key = "w", &                          
                                  q_key = "q", &                          
                                  zu_key = "zu", &
                                  zv_key = "zv", &
                                  zw_key = "zw" , &
                                  zq_key = "zq", &
                                  x_key = "x", &
                                  y_key = "y", &
                                  z_key = "z", &
                                  zn_key="zn", &
                                  th_key = "th", &                         
                                  zth_key = "zth", &
                                  p_key = "p", &                          
                                  timestep="timestep", &                  
                                  time_key="time",&
                                  dtm_key="dtm",&
                                  dtm_new_key="dtm_new",&
                                  absolute_new_dtm_key="absolute_new_dtm",&
                                  ugal="ugal",&
                                  vgal="vgal",&
                                  empty_dim_key="empty_dim", &            
                                  key_value_pair_key="kvp", &  
                                  options_dim_key="number_options", &       
                                  options_key="options_database", &                
                                  string_dim_key="string",&          
                                  title_attribute_key="title",&
                                  created_attribute_key="created",&
                                  nqfields="nqfields", &
                                  q_indices_dim_key="active_q_indicies", &
                                  q_indices_key="q_indicies", &
                                  x_resolution="x_resolution", &
                                  y_resolution="y_resolution", &
                                  x_top="x_top", &
                                  y_top="y_top", &
                                  x_bottom="x_bottom", &
                                  y_bottom="y_bottom", &
                                  q_field_anonymous_name="q_qfield", &
                                  zq_field_anonymous_name="zq_qfield", &
                                  thref="thref", &
                                  olubar="olubar", &
                                  olzubar="olzubar", &
                                  olvbar="olvbar", &
                                  olzvbar="olzvbar", &
                                  olthbar="olthbar", &
                                  olzthbar="olzthbar", &
                                  olqbar="olqbar", &
                                  olqbar_anonymous_name="olqbar_qfield", &
                                  olzqbar="olzqbar", &
                                  olzqbar_anonymous_name="olzqbar_qfield", &
                                  rad_last_time_key="rad_last_time", &
                                  sth_lw_key="sth_lw", &
                                  sth_sw_key="sth_sw", &
                                  wup='w_up', &
                                  wdwn='w_dwn'
 
  integer, parameter :: max_string_length = 100
 
contains
 
  subroutine check_status(status, found_flag)
    integer, intent(in) :: status
    logical, intent(out), optional :: found_flag
 
    if (present(found_flag)) then
      found_flag = status /= nf90_ebaddim .and. status /= nf90_enotatt .and. status /= nf90_enotvar
      if (.not. found_flag) return
    end if
 
    if (status /= nf90_noerr) then
      call log_log(log_error, "NetCDF returned error code of "//trim(nf90_strerror(status)))
    end if
  end subroutine check_status
 
  subroutine remove_null_terminator_from_string(net_cdf_string)
    character(len=*), intent(inout) :: net_cdf_string
    integer :: i
    do i=1,len(net_cdf_string)
      if (iachar(net_cdf_string(i:i)) == 0) then
        net_cdf_string(i:len(net_cdf_string)) = ' '
        exit
      end if
    end do
  end subroutine remove_null_terminator_from_string
end module checkpointer_common_mod