Skip to content

master: merge HWRF version of saSAS with GFS version #423

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

Merged
climbfuji merged 14 commits into from
Jun 4, 2020
Merged

master: merge HWRF version of saSAS with GFS version #423

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
14 commits
Select commit Hold shift + click to select a range
5ca808e
initialize HWRF sasas scheme using preprocessor directives controlled
mzhangw Dec 13, 2019
bff2547
add preprocessor directives for HWRF in samfshalcnv
mzhangw Dec 14, 2019
a4ac852
fix bugs to pass compilation
mzhangw Dec 18, 2019
beb3a33
delete HWRF ensemble capability
mzhangw Dec 18, 2019
c825f5f
remove if outside of loop per Doms suggestion
mzhangw Dec 20, 2019
029f448
bug fix
mzhangw Dec 26, 2019
178ce50
Merge branch 'man_hafs_sas_without_updates_of_dtc_develop_029f4489d4f…
climbfuji Apr 1, 2020
bccf301
physics/samfdeepcnv.f: bugfix, ca_deep only allocated when do_ca is .…
climbfuji Apr 1, 2020
71eace1
physics/samfshalcnv.f: bugfix, move assignment inside if block as in …
climbfuji Apr 3, 2020
b61ea19
physics/GFS_debug.F90: add capability to debug 1-d logical arrays
climbfuji Apr 6, 2020
388999d
Merge branch 'master' of https://github.com/NCAR/ccpp-physics into ma…
climbfuji Jun 3, 2020
ba106f7
fix unitialized parameters in samfdeepcnv
mzhangw Apr 30, 2020
42aa6e4
Bugfixes, and formatting changes in physics/samfdeepcnv.f
climbfuji Jun 3, 2020
4fcdf2f
Update of samfdeepcnv.f based on code review
climbfuji Jun 3, 2020
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
26 changes: 26 additions & 0 deletions physics/GFS_debug.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -18,6 +18,7 @@ module GFS_diagtoscreen

interface print_var
module procedure print_logic_0d
module procedure print_logic_1d
module procedure print_int_0d
module procedure print_int_1d
module procedure print_real_0d
Expand Down Expand Up @@ -116,6 +117,7 @@ subroutine GFS_diagtoscreen_run (Model, Statein, Stateout, Sfcprop, Coupling,
do impi=0,mpisize-1
do iomp=0,ompsize-1
if (mpirank==impi .and. omprank==iomp) then
call print_var(mpirank,omprank, blkno, 'Model%kdt' , Model%kdt)
! Sfcprop
call print_var(mpirank,omprank, blkno, 'Sfcprop%slmsk' , Sfcprop%slmsk)
call print_var(mpirank,omprank, blkno, 'Sfcprop%oceanfrac', Sfcprop%oceanfrac)
Expand Down Expand Up @@ -552,6 +554,30 @@ subroutine print_int_0d(mpirank,omprank,blkno,name,var)

end subroutine print_int_0d

subroutine print_logic_1d(mpirank,omprank,blkno,name,var)

use machine, only: kind_phys

implicit none

integer, intent(in) :: mpirank, omprank, blkno
character(len=*), intent(in) :: name
logical, intent(in) :: var(:)

integer :: i

#ifdef PRINT_SUM
write(0,'(2a,3i6,2i8)') 'XXX: ', trim(name), mpirank, omprank, blkno, size(var), count(var)
#elif defined(PRINT_CHKSUM)
write(0,'(2a,3i6,2i8)') 'XXX: ', trim(name), mpirank, omprank, blkno, size(var), count(var)
#else
do i=ISTART,min(IEND,size(var(:)))
write(0,'(2a,3i6,i6,1x,l)') 'XXX: ', trim(name), mpirank, omprank, blkno, i, var(i)
end do
#endif

end subroutine print_logic_1d

subroutine print_int_1d(mpirank,omprank,blkno,name,var)

use machine, only: kind_phys
Expand Down
Loading