Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Pre release updates #155

Merged
merged 2 commits into from
Aug 27, 2018
Merged

Pre release updates #155

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
b01e8b7
added initialization of intent(out) variables where they produced com…
grantfirl Aug 27, 2018
3ff6c9c
Merge branch 'master' into pre-release_updates
grantfirl Aug 27, 2018
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 8 additions & 0 deletions physics/GFS_time_vary_pre.scm.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -26,6 +26,10 @@ subroutine GFS_time_vary_pre_init (errmsg, errflg)
character(len=*), intent(out) :: errmsg
integer, intent(out) :: errflg

! Initialize CCPP error handling variables
errmsg = ''
errflg = 0

!--- Call gfuncphys (funcphys.f) to compute all physics function tables.
call gfuncphys ()

Expand All @@ -47,6 +51,10 @@ subroutine GFS_time_vary_pre_finalize(errmsg, errflg)

! DH* this is the place to deallocate whatever is allocated by gfuncphys() in GFS_time_vary_pre_init

! Initialize CCPP error handling variables
errmsg = ''
errflg = 0

end subroutine GFS_time_vary_pre_finalize


Expand Down
8 changes: 6 additions & 2 deletions physics/moninedmf.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -18,8 +18,8 @@ end subroutine hedmf_finalize

!> \defgroup HEDMF GFS moninedmf Main
!! @{
!! \brief This subroutine contains all of logic for the
!! Hybrid EDMF PBL scheme except for the calculation of
!! \brief This subroutine contains all of logic for the
!! Hybrid EDMF PBL scheme except for the calculation of
!! the updraft properties and mass flux.
!!
!> \section arg_table_hedmf_run Argument Table
Expand Down Expand Up @@ -270,6 +270,10 @@ subroutine hedmf_run (ix,im,km,ntrac,ntcw,dv,du,tau,rtg, &
610 format(1x,' k pr dkt dku ',i5,3f8.2,' l2 ri t2',
1 ' sr2 ',2f8.2,2e10.2)
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! Initialize CCPP error handling variables
errmsg = ''
errflg = 0

!> ## Compute preliminary variables from input arguments

! compute preliminary variables
Expand Down