Skip to content

fix namelist in ftst_program_setup.F90 and beef up testing of namelist config_fv3_tiled_warm_restart #457

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
edwardhartnett merged 18 commits into from
Apr 27, 2021
Merged

fix namelist in ftst_program_setup.F90 and beef up testing of namelist config_fv3_tiled_warm_restart #457

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
18 commits
Select commit Hold shift + click to select a range
0ec1aae
added slideshow and reference in README
edwardhartnett Apr 2, 2021
61b15cd
merged develop
edwardhartnett Apr 7, 2021
22de884
merged
edwardhartnett Apr 13, 2021
c229c3b
merged
edwardhartnett Apr 16, 2021
c00c739
merged
edwardhartnett Apr 19, 2021
1f86f19
merged
edwardhartnett Apr 20, 2021
2fa10dd
merged
edwardhartnett Apr 20, 2021
e22a8fc
merged develop
edwardhartnett Apr 23, 2021
00a8fe0
uncommented failing test code
edwardhartnett Apr 23, 2021
ba06ecc
trying to fix namelist
edwardhartnett Apr 27, 2021
6711a0b
Merge branch 'develop' into ejh_test_0423
edwardhartnett Apr 27, 2021
c9fe7db
fixing test
edwardhartnett Apr 27, 2021
49d6441
beefed up test
edwardhartnett Apr 27, 2021
df8a18c
beefed up test
edwardhartnett Apr 27, 2021
f0356cd
more testing
edwardhartnett Apr 27, 2021
b9aba8c
more testing
edwardhartnett Apr 27, 2021
b97cc5b
added test code
edwardhartnett Apr 27, 2021
06cddd6
removed incorrect comment
edwardhartnett Apr 27, 2021
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
3 changes: 2 additions & 1 deletion tests/chgres_cube/config_fv3_tiled_warm_restart.nml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -23,4 +23,5 @@
regional=0
halo_bndy=0
halo_blend=0
/
/

62 changes: 58 additions & 4 deletions tests/chgres_cube/ftst_program_setup.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -81,10 +81,64 @@ program ftst_program_setup
enddo
if (my_rank .eq. 0) print*, "OK"

! Reading this namelist fails for some reason.
! print*, "testing read_setup_namelist with config_fv3_tiled_warm_restart..."
! call read_setup_namelist("config_fv3_tiled_warm_restart.nml")
! print*, "OK"
print*, "testing read_setup_namelist with config_fv3_tiled_warm_restart..."
Comment thread
edwardhartnett marked this conversation as resolved.
call read_setup_namelist("config_fv3_tiled_warm_restart.nml")
if (cycle_mon .ne. 7 .or. cycle_day .ne. 6 .or. cycle_hour .ne. 12) stop 64
if (.not. convert_atm .or. .not. convert_sfc .or. .not. convert_nst) stop 65
if (regional .ne. 0 .or. halo_bndy .ne. 0 .or. halo_blend .ne. 0) stop 66
if (trim(mosaic_file_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/C96_mosaic.nc") stop 67
if (trim(fix_dir_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/fix_sfc") stop 68
if (trim(orog_dir_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/") stop 69
if (trim(vcoord_file_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/ufs_utils.git/UFS_UTILS/reg_tests/chgres_cube/../../fix/fix_am/global_hyblev.l64.txt") stop 70
if (trim(mosaic_file_input_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C384/C384_mosaic.nc") stop 71
if (trim(orog_dir_input_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C384/") stop 72
if (trim(data_dir_input_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/input_data/fv3.restart") stop 73
if (trim(orog_files_target_grid(1)) .ne. "C96_oro_data.tile1.nc") stop 176
if (trim(orog_files_target_grid(2)) .ne. "C96_oro_data.tile2.nc") stop 176
if (trim(orog_files_target_grid(3)) .ne. "C96_oro_data.tile3.nc") stop 176
if (trim(orog_files_target_grid(4)) .ne. "C96_oro_data.tile4.nc") stop 176
if (trim(orog_files_target_grid(5)) .ne. "C96_oro_data.tile5.nc") stop 176
if (trim(orog_files_target_grid(6)) .ne. "C96_oro_data.tile6.nc") stop 176
if (trim(orog_files_input_grid(1)) .ne. "C384_oro_data.tile1.nc") stop 177
if (trim(orog_files_input_grid(2)) .ne. "C384_oro_data.tile2.nc") stop 177
if (trim(orog_files_input_grid(3)) .ne. "C384_oro_data.tile3.nc") stop 177
if (trim(orog_files_input_grid(4)) .ne. "C384_oro_data.tile4.nc") stop 177
if (trim(orog_files_input_grid(5)) .ne. "C384_oro_data.tile5.nc") stop 177
if (trim(orog_files_input_grid(6)) .ne. "C384_oro_data.tile6.nc") stop 177
if (trim(atm_core_files_input_grid(1)) .ne. "20190706.120000.fv_core.res.tile1.nc") stop 178
if (trim(atm_core_files_input_grid(2)) .ne. "20190706.120000.fv_core.res.tile2.nc") stop 178
if (trim(atm_core_files_input_grid(3)) .ne. "20190706.120000.fv_core.res.tile3.nc") stop 178
if (trim(atm_core_files_input_grid(4)) .ne. "20190706.120000.fv_core.res.tile4.nc") stop 178
if (trim(atm_core_files_input_grid(5)) .ne. "20190706.120000.fv_core.res.tile5.nc") stop 178
if (trim(atm_core_files_input_grid(6)) .ne. "20190706.120000.fv_core.res.tile6.nc") stop 178
if (trim(atm_tracer_files_input_grid(1)) .ne. "20190706.120000.fv_tracer.res.tile1.nc") stop 179
if (trim(atm_tracer_files_input_grid(2)) .ne. "20190706.120000.fv_tracer.res.tile2.nc") stop 179
if (trim(atm_tracer_files_input_grid(3)) .ne. "20190706.120000.fv_tracer.res.tile3.nc") stop 179
if (trim(atm_tracer_files_input_grid(4)) .ne. "20190706.120000.fv_tracer.res.tile4.nc") stop 179
if (trim(atm_tracer_files_input_grid(5)) .ne. "20190706.120000.fv_tracer.res.tile5.nc") stop 179
if (trim(atm_tracer_files_input_grid(6)) .ne. "20190706.120000.fv_tracer.res.tile6.nc") stop 179
if (trim(sfc_files_input_grid(1)) .ne. "20190706.120000.sfc_data.tile1.nc") stop 180
if (trim(sfc_files_input_grid(2)) .ne. "20190706.120000.sfc_data.tile2.nc") stop 180
if (trim(sfc_files_input_grid(3)) .ne. "20190706.120000.sfc_data.tile3.nc") stop 180
if (trim(sfc_files_input_grid(4)) .ne. "20190706.120000.sfc_data.tile4.nc") stop 180
if (trim(sfc_files_input_grid(5)) .ne. "20190706.120000.sfc_data.tile5.nc") stop 180
if (trim(sfc_files_input_grid(6)) .ne. "20190706.120000.sfc_data.tile6.nc") stop 180
if (trim(input_type) .ne. "restart") stop 89
if (num_tracers .ne. 7) stop 173
if (tracers(1) .ne. "sphum" .or. tracers(2) .ne. "liq_wat" .or. tracers(3) .ne. "o3mr" .or. &
tracers(4) .ne. "ice_wat" .or. tracers(5) .ne. "rainwat" .or. tracers(6) .ne. "snowwat" .or. &
tracers(7) .ne. "graupel") stop 174
if (tracers_input(1) .ne. "sphum" .or. tracers_input(2) .ne. "liq_wat" .or. &
tracers_input(3) .ne. "o3mr" .or. tracers_input(4) .ne. "ice_wat" .or. &
tracers_input(5) .ne. "rainwat" .or. tracers_input(6) .ne. "snowwat" .or. &
tracers_input(7) .ne. "graupel") stop 175

! Reset the tracers array.
do is = 1, max_tracers
tracers(is) = "NULL"
tracers_input(is) = "NULL"
enddo
print*, "OK"

if (my_rank .eq. 0) print*, "testing read_setup_namelist with config_gaussian_nemsio..."
call read_setup_namelist("config_gaussian_nemsio.nml")
Expand Down