var/da/da_main/da_wrfvar_io.f90

   1 module da_wrfvar_io
   2
   3    use module_configure, only : grid_config_rec_type, model_config_rec, &
   4       model_to_grid_config_rec
   5    use module_date_time, only : get_julgmt, geth_julgmt, current_date, start_date
   6    use module_domain, only : domain, get_ijk_from_grid
   7    use module_io_domain, only : open_r_dataset,close_dataset, &
   8       input_input, open_w_dataset,output_input, &
   9       input_boundary, output_boundary, output_auxhist4, &
  10       input_auxhist6, input_auxhist4
  11    use module_io, only: wrf_get_dom_ti_integer
  12    use module_state_description, only : p_qv
  13
  14    use da_control, only : trace_use, ierr, var4d, var4d_lbc, num_fgat_time, rootproc
  15    use da_control, only : cloud_cv_options
  16    use da_reporting, only : da_error, message, da_message
  17    use da_tracing, only : da_trace_entry, da_trace_exit, da_trace
  18
  19    use, intrinsic :: iso_c_binding,                       &
  20                      ONLY: c_int32_t, C_CHAR, C_NULL_CHAR
  21
  22
  23 #ifdef VAR4D
  24    use da_4dvar, only : model_grid
  25 #endif
  26
  27 contains
  28
  29 #include "da_med_initialdata_input.inc"
  30 #include "da_med_initialdata_output.inc"
  31 #include "da_med_initialdata_output_lbc.inc"
  32 #include "da_update_firstguess.inc"
  33
  34 end module da_wrfvar_io