MODULE period_vars ! The derived-type "period_vars" variables are intended to update ! and store the values of specified parameters based upon informaton ! passed to it from the "accumulator" derived-type variables. ! The "storage" variables may be storing a sum, running average, ! median, etc. values of the specified parameters. USE period_var_type_def IMPLICIT NONE ! Specify "period var" structures TYPE (period_var_type),DIMENSION(:,:),TARGET,ALLOCATABLE :: yrly_ave TYPE (period_var_type),DIMENSION(:,:,:),TARGET,ALLOCATABLE :: monthly_ave TYPE (period_var_type),DIMENSION(:,:),TARGET,ALLOCATABLE :: hmonth_ave TYPE (period_var_type),DIMENSION(:,:),TARGET,ALLOCATABLE :: period_ave ! "count" structures used by "period var" structures TYPE (period_cntr_type),DIMENSION(:),TARGET, ALLOCATABLE :: yrly_ave_cntr TYPE (period_cntr_type),DIMENSION(:,:),TARGET,ALLOCATABLE :: monthly_ave_cntr TYPE (period_cntr_type),DIMENSION(:),TARGET,ALLOCATABLE :: hmonth_ave_cntr TYPE (period_cntr_type),DIMENSION(:),TARGET,ALLOCATABLE :: period_ave_cntr END MODULE period_vars