Skip to content

Commit

Permalink
default zone averaging to true, not false
Browse files Browse the repository at this point in the history
  • Loading branch information
casper-boon committed Oct 27, 2021
1 parent 3fa6d2e commit 9689ebb
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions src/aed_core.F90
Original file line number Diff line number Diff line change
Expand Up @@ -351,7 +351,7 @@ SUBROUTINE extend_allocated_variables(pcount)

all_vars(a_vars+1:a_vars+count)%top = .false.
all_vars(a_vars+1:a_vars+count)%bot = .false.
all_vars(a_vars+1:a_vars+count)%zavg = .false.
all_vars(a_vars+1:a_vars+count)%zavg = .true.

! IF ( ALLOCATED(column) ) THEN
! ALLOCATE(tmpc(1:a_vars))
Expand Down Expand Up @@ -462,7 +462,7 @@ FUNCTION aed_create_variable(name, longname, units, place) RESULT(ret)
all_vars(ret)%diag = .false.
all_vars(ret)%extern = .false.
all_vars(ret)%found = .false.
all_vars(ret)%zavg = .false.
all_vars(ret)%zavg = .true.
all_vars(ret)%top = .false.
all_vars(ret)%bot = .false.
ENDIF
Expand Down Expand Up @@ -538,7 +538,7 @@ FUNCTION aed_define_sheet_variable(name, units, longname, initial, minimum, maxi
IF ( PRESENT(zavg) ) THEN
all_vars(ret)%zavg = zavg
ELSE
all_vars(ret)%zavg = .FALSE.
all_vars(ret)%zavg = .TRUE.
ENDIF
END FUNCTION aed_define_sheet_variable
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Expand Down Expand Up @@ -597,7 +597,7 @@ FUNCTION aed_define_sheet_diag_variable(name, units, longname, surf, zavg) RESUL
IF ( PRESENT(zavg) ) THEN
all_vars(ret)%zavg = zavg
ELSE
all_vars(ret)%zavg = .FALSE.
all_vars(ret)%zavg = .TRUE.
ENDIF

ret = n_aed_vars
Expand Down

0 comments on commit 9689ebb

Please sign in to comment.