MODULE period_accumulator_vars ! The purpose of the derived-type "accumulator" variables is to ! keep track of selected variable values over a specified period ! of time. This may include summation, running average, beginning ! period value, median, last period value, etc. ! Once the "accumulator" variable has been "filled" after reaching ! the end of it's specified period, the value is passed on to the ! selected period storage variables for each particular parameter. USE period_var_type_def IMPLICIT NONE ! Specify "tmp accumulator" variable structures TYPE (period_var_type), DIMENSION(:), TARGET, ALLOCATABLE :: yrly_var TYPE (period_var_type), DIMENSION(:), TARGET, ALLOCATABLE :: monthly_var TYPE (period_var_type), DIMENSION(:), TARGET, ALLOCATABLE :: hmonth_var TYPE (period_var_type), DIMENSION(:), TARGET, ALLOCATABLE :: period_var ! "count" structures used by "tmp average" structures TYPE (period_cntr_type), TARGET :: yrly_cntr TYPE (period_cntr_type), TARGET :: monthly_cntr TYPE (period_cntr_type), TARGET :: hmonth_cntr TYPE (period_cntr_type), TARGET :: period_cntr END MODULE period_accumulator_vars