| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| type(ESMF_Alarm), | public | :: | alarm | ||||
| type(ESMF_TimeInterval), | public | :: | epoch_frequency |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(HistoryTrajectory), | intent(inout) | :: | this | |||
| type(ESMF_Time), | intent(inout) | :: | current_time | |||
| integer, | intent(out), | optional | :: | rc |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(HistoryTrajectory), | intent(inout) | :: | this | |||
| integer, | intent(out), | optional | :: | rc |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(HistoryTrajectory), | intent(inout) | :: | this | |||
| character(len=*), | intent(in) | :: | filename_suffix | |||
| integer, | intent(out), | optional | :: | rc |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(HistoryTrajectory), | intent(inout) | :: | this | |||
| integer, | intent(out), | optional | :: | rc |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(HistoryTrajectory), | intent(inout) | :: | this | |||
| integer, | intent(out), | optional | :: | rc |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(HistoryTrajectory), | intent(inout) | :: | this | |||
| character(len=*), | intent(in) | :: | vname | |||
| integer, | intent(out), | optional | :: | rc |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(HistoryTrajectory), | intent(inout) | :: | this | |||
| integer, | intent(out), | optional | :: | rc |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(HistoryTrajectory), | intent(inout) | :: | this | |||
| type(ESMF_Time), | intent(in) | :: | interval(2) | |||
| integer, | intent(out) | :: | x_subset(2) | |||
| integer, | intent(out), | optional | :: | rc |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(HistoryTrajectory), | intent(inout) | :: | this | |||
| type(GriddedIOitemVector), | intent(inout), | optional | :: | items | ||
| type(ESMF_FieldBundle), | intent(inout), | optional | :: | bundle | ||
| type(timeData), | intent(inout), | optional | :: | timeInfo | ||
| type(verticalData), | intent(inout), | optional | :: | vdata | ||
| logical, | intent(in), | optional | :: | reinitialize | ||
| integer, | intent(out), | optional | :: | rc |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(HistoryTrajectory), | intent(inout) | :: | this | |||
| integer, | intent(out), | optional | :: | rc |
type :: HistoryTrajectory private type(ESMF_LocStream) :: LS_rt type(ESMF_LocStream) :: LS_ds type(ESMF_LocStream) :: LS_chunk type(LocStreamFactory) :: locstream_factory type(obs_unit), allocatable :: obs(:) type(ESMF_Time), allocatable :: times(:) real(kind=REAL64), allocatable :: lons(:) real(kind=REAL64), allocatable :: lats(:) real(kind=REAL64), allocatable :: times_R8(:) integer, allocatable :: obstype_id(:) integer, allocatable :: location_index_ioda(:) ! location index in its own ioda file type(MAPL_MetaComp), pointer :: GENSTATE type(ESMF_FieldBundle) :: bundle type(ESMF_FieldBundle) :: output_bundle type(ESMF_FieldBundle) :: acc_bundle type(ESMF_Field) :: fieldA type(ESMF_Field) :: fieldB type(GriddedIOitemVector) :: items type(VerticalData) :: vdata logical :: do_vertical_regrid type(LocstreamRegridder) :: regridder type(TimeData) :: time_info type(ESMF_Clock) :: clock type(ESMF_Alarm), public :: alarm type(ESMF_Time) :: RingTime type(ESMF_TimeInterval), public :: epoch_frequency integer :: nobs_type ! character(len=ESMF_MAXSTR) :: nc_index ! character(len=ESMF_MAXSTR) :: nc_time ! character(len=ESMF_MAXSTR) :: nc_latitude ! character(len=ESMF_MAXSTR) :: nc_longitude character(len=ESMF_MAXSTR) :: index_name_x character(len=ESMF_MAXSTR) :: var_name_time character(len=ESMF_MAXSTR) :: var_name_lat character(len=ESMF_MAXSTR) :: var_name_lon character(len=ESMF_MAXSTR) :: var_name_time_full character(len=ESMF_MAXSTR) :: var_name_lat_full character(len=ESMF_MAXSTR) :: var_name_lon_full character(len=ESMF_MAXSTR) :: datetime_units character(len=ESMF_MAXSTR) :: Location_index_name integer :: epoch ! unit: second integer(kind=ESMF_KIND_I8) :: epoch_index(2) real(kind=ESMF_KIND_R8), pointer:: obsTime(:) integer :: nobs_epoch integer :: nobs_epoch_sum type(ESMF_Time) :: obsfile_start_time ! user specify type(ESMF_Time) :: obsfile_end_time type(ESMF_TimeInterval) :: obsfile_interval integer :: obsfile_Ts_index ! for epoch integer :: obsfile_Te_index logical :: active ! case: when no obs. exist logical :: level_by_level = .false. ! note ! for MPI_GATHERV of 3D data in procedure :: append_file ! we have choice LEVEL_BY_LEVEL or ALL_AT_ONCE (timing in sec below for extdata) ! c1440_L137_M1260 57.276 69.870 ! c5760_L137_M8820 98.494 93.140 ! M=cores ! hence start using ALL_AT_ONCE from c5760+ contains procedure :: initialize => initialize_ procedure :: create_variable => create_metadata_variable procedure :: create_file_handle procedure :: close_file_handle procedure :: append_file procedure :: create_new_bundle procedure :: create_grid procedure :: regrid_accumulate => regrid_accumulate_on_xsubset procedure :: destroy_rh_regen_LS procedure :: get_x_subset end type HistoryTrajectory