diff --git a/tests/chres_cube/CMakeLists.txt b/tests/chres_cube/CMakeLists.txt index ba5573fd7..0d3232d68 100644 --- a/tests/chres_cube/CMakeLists.txt +++ b/tests/chres_cube/CMakeLists.txt @@ -13,8 +13,17 @@ include_directories(${PROJECT_SOURCE_DIR}) # Copy necessary test files. execute_process( COMMAND ${CMAKE_COMMAND} -E copy - ${CMAKE_CURRENT_SOURCE_DIR}/config.nml - ${CMAKE_CURRENT_BINARY_DIR}/fort.41) + ${CMAKE_CURRENT_SOURCE_DIR}/config_gaussian_nemsio.nml ${CMAKE_CURRENT_BINARY_DIR}/fort.41) +execute_process( COMMAND ${CMAKE_COMMAND} -E copy + ${CMAKE_CURRENT_SOURCE_DIR}/config_fv3_tiled.nml ${CMAKE_CURRENT_BINARY_DIR}/config_fv3_tiled.nml) +execute_process( COMMAND ${CMAKE_COMMAND} -E copy + ${CMAKE_CURRENT_SOURCE_DIR}/config_fv3_tiled_warm_restart.nml ${CMAKE_CURRENT_BINARY_DIR}/config_fv3_tiled_warm_restart.nml) +execute_process( COMMAND ${CMAKE_COMMAND} -E copy + ${CMAKE_CURRENT_SOURCE_DIR}/config_gaussian_nemsio.nml ${CMAKE_CURRENT_BINARY_DIR}/config_gaussian_nemsio.nml) +execute_process( COMMAND ${CMAKE_COMMAND} -E copy + ${CMAKE_CURRENT_SOURCE_DIR}/config_gfs_grib2.nml ${CMAKE_CURRENT_BINARY_DIR}/config_gfs_grib2.nml) +execute_process( COMMAND ${CMAKE_COMMAND} -E copy + ${CMAKE_CURRENT_SOURCE_DIR}/config_spectral_sigio.nml ${CMAKE_CURRENT_BINARY_DIR}/config_spectral_sigio.nml) add_executable(ftst_utils "${CMAKE_SOURCE_DIR}/sorc/chgres_cube.fd/utils.F90" ftst_utils.F90) add_test(NAME ftst_utils COMMAND ftst_utils) diff --git a/tests/chres_cube/config_fv3_netcdf.nml b/tests/chres_cube/config_fv3_netcdf.nml new file mode 100644 index 000000000..c5169fae0 --- /dev/null +++ b/tests/chres_cube/config_fv3_netcdf.nml @@ -0,0 +1,22 @@ + &config + mosaic_file_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/C96_mosaic.nc" + fix_dir_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/fix_sfc" + orog_dir_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96" + orog_files_target_grid="C96_oro_data.tile1.nc","C96_oro_data.tile2.nc","C96_oro_data.tile3.nc","C96_oro_data.tile4.nc","C96_oro_data.tile5.nc","C96_oro_data.tile6.nc" + vcoord_file_target_grid="/scratch1/NCEPDEV/da/George.Gayno/ufs_utils.git/UFS_UTILS/reg_tests/chgres_cube/../../fix/fix_am/global_hyblev.l64.txt" + data_dir_input_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/input_data/fv3.netcdf" + atm_files_input_grid="gfs.t00z.atmf000.nc" + sfc_files_input_grid="gfs.t00z.sfcf000.nc" + cycle_mon=02 + cycle_day=02 + cycle_hour=00 + convert_atm=.true. + convert_sfc=.true. + convert_nst=.true. + input_type="gaussian_netcdf" + tracers="sphum","liq_wat","o3mr","ice_wat","rainwat","snowwat","graupel" + tracers_input="spfh","clwmr","o3mr","icmr","rwmr","snmr","grle" + regional=0 + halo_bndy=0 + halo_blend=0 + / \ No newline at end of file diff --git a/tests/chres_cube/config_fv3_tiled.nml b/tests/chres_cube/config_fv3_tiled.nml new file mode 100644 index 000000000..85fbaa3da --- /dev/null +++ b/tests/chres_cube/config_fv3_tiled.nml @@ -0,0 +1,25 @@ +&config + mosaic_file_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C192/C192_mosaic.nc" + fix_dir_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C192/fix_sfc" + orog_dir_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C192" + orog_files_target_grid="C192_oro_data.tile1.nc","C192_oro_data.tile2.nc","C192_oro_data.tile3.nc","C192_oro_data.tile4.nc","C192_oro_data.tile5.nc","C192_oro_data.tile6.nc" + vcoord_file_target_grid="/scratch1/NCEPDEV/da/George.Gayno/ufs_utils.git/UFS_UTILS/reg_tests/chgres_cube/../../fix/fix_am/global_hyblev.l64.txt" + mosaic_file_input_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/C96_mosaic.nc" + orog_dir_input_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96" + orog_files_input_grid="C96_oro_data.tile1.nc","C96_oro_data.tile2.nc","C96_oro_data.tile3.nc","C96_oro_data.tile4.nc","C96_oro_data.tile5.nc","C96_oro_data.tile6.nc" + data_dir_input_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/input_data/fv3.history" + atm_files_input_grid="dynf000.tile1.nc","dynf000.tile2.nc","dynf000.tile3.nc","dynf000.tile4.nc","dynf000.tile5.nc","dynf000.tile6.nc" + sfc_files_input_grid="phyf000.tile1.nc","phyf000.tile2.nc","phyf000.tile3.nc","phyf000.tile4.nc","phyf000.tile5.nc","phyf000.tile6.nc" + cycle_mon=10 + cycle_day=03 + cycle_hour=00 + convert_atm=.true. + convert_sfc=.true. + convert_nst=.true. + input_type="history" + tracers="sphum","liq_wat","o3mr" + tracers_input="spfh","clwmr","o3mr" + regional=0 + halo_bndy=0 + halo_blend=0 + / diff --git a/tests/chres_cube/config_fv3_tiled_warm_restart.nml b/tests/chres_cube/config_fv3_tiled_warm_restart.nml new file mode 100644 index 000000000..e5671ab61 --- /dev/null +++ b/tests/chres_cube/config_fv3_tiled_warm_restart.nml @@ -0,0 +1,26 @@ +&config + mosaic_file_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/C96_mosaic.nc" + fix_dir_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/fix_sfc" + orog_dir_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96" + orog_files_target_grid="C96_oro_data.tile1.nc","C96_oro_data.tile2.nc","C96_oro_data.tile3.nc","C96_oro_data.tile4.nc","C96_oro_data.tile5.nc","C96_oro_data.tile6.nc" + vcoord_file_target_grid="/scratch1/NCEPDEV/da/George.Gayno/ufs_utils.git/UFS_UTILS/reg_tests/chgres_cube/../../fix/fix_am/global_hyblev.l64.txt" + mosaic_file_input_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C384/C384_mosaic.nc" + orog_dir_input_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C384" + orog_files_input_grid="C384_oro_data.tile1.nc","C384_oro_data.tile2.nc","C384_oro_data.tile3.nc","C384_oro_data.tile4.nc","C384_oro_data.tile5.nc","C384_oro_data.tile6.nc" + data_dir_input_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/input_data/fv3.restart" + atm_core_files_input_grid="20190706.120000.fv_core.res.tile1.nc","20190706.120000.fv_core.res.tile2.nc","20190706.120000.fv_core.res.tile3.nc","20190706.120000.fv_core.res.tile4.nc","20190706.120000.fv_core.res.tile5.nc","20190706.120000.fv_core.res.tile6.nc","20190706.120000.fv_core.res.nc" + atm_tracer_files_input_grid="20190706.120000.fv_tracer.res.tile1.nc","20190706.120000.fv_tracer.res.tile2.nc","20190706.120000.fv_tracer.res.tile3.nc","20190706.120000.fv_tracer.res.tile4.nc","20190706.120000.fv_tracer.res.tile5.nc","20190706.120000.fv_tracer.res.tile6.nc" + sfc_files_input_grid="20190706.120000.sfc_data.tile1.nc","20190706.120000.sfc_data.tile2.nc","20190706.120000.sfc_data.tile3.nc","20190706.120000.sfc_data.tile4.nc","20190706.120000.sfc_data.tile5.nc","20190706.120000.sfc_data.tile6.nc" + cycle_mon=07 + cycle_day=06 + cycle_hour=12 + convert_atm=.true. + convert_sfc=.true. + convert_nst=.true. + input_type="restart" + tracers="sphum","liq_wat","o3mr","ice_wat","rainwat","snowwat","graupel" + tracers_input="sphum","liq_wat","o3mr","ice_wat","rainwat","snowwat","graupel" + regional=0 + halo_bndy=0 + halo_blend=0 + / \ No newline at end of file diff --git a/tests/chres_cube/config.nml b/tests/chres_cube/config_gaussian_nemsio.nml similarity index 100% rename from tests/chres_cube/config.nml rename to tests/chres_cube/config_gaussian_nemsio.nml diff --git a/tests/chres_cube/config_gfs_grib2.nml b/tests/chres_cube/config_gfs_grib2.nml new file mode 100644 index 000000000..5842a57fa --- /dev/null +++ b/tests/chres_cube/config_gfs_grib2.nml @@ -0,0 +1,22 @@ +&config + mosaic_file_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C192/C192_mosaic.nc" + fix_dir_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C192/fix_sfc" + orog_dir_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C192" + orog_files_target_grid="C192_oro_data.tile1.nc","C192_oro_data.tile2.nc","C192_oro_data.tile3.nc","C192_oro_data.tile4.nc","C192_oro_data.tile5.nc","C192_oro_data.tile6.nc" + vcoord_file_target_grid="/scratch1/NCEPDEV/da/George.Gayno/ufs_utils.git/UFS_UTILS/reg_tests/chgres_cube/../../fix/fix_am/global_hyblev.l65.txt" + data_dir_input_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/input_data/gfs.grib2" + grib2_file_input_grid="gfs.t00z.pgrb2.0p50.f000" + varmap_file="/scratch1/NCEPDEV/da/George.Gayno/ufs_utils.git/UFS_UTILS/reg_tests/chgres_cube/../../parm/varmap_tables/GFSphys_var_map.txt" + cycle_mon=11 + cycle_day=04 + cycle_hour=00 + convert_atm=.true. + convert_sfc=.true. + convert_nst=.false. + input_type="grib2" + tracers="sphum","liq_wat","o3mr","ice_wat","rainwat","snowwat","graupel" + tracers_input="spfh","clwmr","o3mr","icmr","rwmr","snmr","grle" + regional=0 + halo_bndy=0 + halo_blend=0 + / diff --git a/tests/chres_cube/config_spectral_sigio.nml b/tests/chres_cube/config_spectral_sigio.nml new file mode 100644 index 000000000..7d8805deb --- /dev/null +++ b/tests/chres_cube/config_spectral_sigio.nml @@ -0,0 +1,22 @@ +&config + mosaic_file_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/C96_mosaic.nc" + fix_dir_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/fix_sfc" + orog_dir_target_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96" + orog_files_target_grid="C96_oro_data.tile1.nc","C96_oro_data.tile2.nc","C96_oro_data.tile3.nc","C96_oro_data.tile4.nc","C96_oro_data.tile5.nc","C96_oro_data.tile6.nc" + vcoord_file_target_grid="/scratch1/NCEPDEV/da/George.Gayno/ufs_utils.git/UFS_UTILS/reg_tests/chgres_cube/../../fix/fix_am/global_hyblev.l64.txt" + data_dir_input_grid="/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/input_data/gfs.sigio" + atm_files_input_grid="gdas.t00z.sanl" + sfc_files_input_grid="gdas.t00z.sfcanl" + cycle_mon=07 + cycle_day=17 + cycle_hour=00 + convert_atm=.true. + convert_sfc=.true. + convert_nst=.false. + input_type="gfs_sigio" + tracers="sphum","o3mr","liq_wat" + tracers_input="spfh","o3mr","clwmr" + regional=0 + halo_bndy=0 + halo_blend=0 + / diff --git a/tests/chres_cube/ftst_program_setup.F90 b/tests/chres_cube/ftst_program_setup.F90 index 8bb3b02c0..ddb6064ae 100644 --- a/tests/chres_cube/ftst_program_setup.F90 +++ b/tests/chres_cube/ftst_program_setup.F90 @@ -7,10 +7,11 @@ program ftst_program_setup use netcdf use program_setup implicit none - + integer :: is + print*, "Starting test of program_setup." - print*, "testing read_setup_namelist..." + print*, "testing read_setup_namelist with file fort.41..." call read_setup_namelist() if (cycle_mon .ne. 7 .or. cycle_day .ne. 4 .or. cycle_hour .ne. 12) stop 4 if (.not. convert_atm .or. .not. convert_sfc .or. .not. convert_nst) stop 5 @@ -36,7 +37,147 @@ program ftst_program_setup tracers_input(3) .ne. "o3mr" .or. tracers_input(4) .ne. "icmr" .or. & tracers_input(5) .ne. "rwmr" .or. tracers_input(6) .ne. "snmr" .or. & tracers_input(7) .ne. "grle") stop 23 + + ! Reset the tracers array. + do is = 1, max_tracers + tracers(is) = "NULL" + tracers_input(is) = "NULL" + enddo + print*, "OK" + + print*, "testing read_setup_namelist with config_fv3_tiled..." + call read_setup_namelist("config_fv3_tiled.nml") + if (cycle_mon .ne. 10 .or. cycle_day .ne. 3 .or. cycle_hour .ne. 0) stop 34 + if (.not. convert_atm .or. .not. convert_sfc .or. .not. convert_nst) stop 35 + if (regional .ne. 0 .or. halo_bndy .ne. 0 .or. halo_blend .ne. 0) stop 36 + if (trim(mosaic_file_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C192/C192_mosaic.nc") stop 37 + if (trim(fix_dir_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C192/fix_sfc") stop 38 + if (trim(orog_dir_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C192/") stop 39 + 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 40 + if (trim(data_dir_input_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/input_data/fv3.history") stop 41 + if (trim(atm_files_input_grid(1)) .ne. 'dynf000.tile1.nc') stop 42 + if (trim(sfc_files_input_grid(1)) .ne. 'phyf000.tile1.nc') stop 43 + if (varmap_file .ne. "NULL") stop 44 + if (thomp_mp_climo_file .ne. "NULL") stop 46 + if (trim(cres_target_grid) .ne. "C192") stop 47 + if (atm_weight_file .ne. "NULL") stop 48 + if (trim(input_type) .ne. "history") stop 49 + if (trim(external_model) .ne. "GFS") stop 50 + if (num_tracers .ne. 3) stop 51 + if (tracers(1) .ne. "sphum" .or. tracers(2) .ne. "liq_wat" .or. tracers(3) .ne. "o3mr") stop 52 + if (tracers_input(1) .ne. "spfh" .or. tracers_input(2) .ne. "clwmr" .or. & + tracers_input(3) .ne. "o3mr") stop 53 + + ! Reset the tracers array. + do is = 1, max_tracers + tracers(is) = "NULL" + tracers_input(is) = "NULL" + enddo + 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_gaussian_nemsio..." + call read_setup_namelist("config_gaussian_nemsio.nml") + if (cycle_mon .ne. 7 .or. cycle_day .ne. 4 .or. cycle_hour .ne. 12) stop 74 + if (.not. convert_atm .or. .not. convert_sfc .or. .not. convert_nst) stop 75 + if (regional .ne. 0 .or. halo_bndy .ne. 0 .or. halo_blend .ne. 0) stop 76 + if (trim(mosaic_file_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/C96_mosaic.nc") stop 77 + if (trim(fix_dir_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/fix_sfc") stop 78 + if (trim(orog_dir_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/") stop 79 + 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 80 + if (trim(data_dir_input_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/input_data/fv3.nemsio") stop 81 + if (trim(atm_files_input_grid(1)) .ne. 'gfs.t12z.atmf000.nemsio') stop 82 + if (trim(sfc_files_input_grid(1)) .ne. 'gfs.t12z.sfcf000.nemsio') stop 83 + if (varmap_file .ne. "NULL") stop 84 + if (thomp_mp_climo_file .ne. "NULL") stop 86 + if (trim(cres_target_grid) .ne. "C96") stop 87 + if (atm_weight_file .ne. "NULL") stop 88 + if (trim(input_type) .ne. "gaussian_nemsio") stop 89 + if (trim(external_model) .ne. "GFS") stop 90 + print *,num_tracers + if (num_tracers .ne. 7) stop 21 + 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 22 + if (tracers_input(1) .ne. "spfh" .or. tracers_input(2) .ne. "clwmr" .or. & + tracers_input(3) .ne. "o3mr" .or. tracers_input(4) .ne. "icmr" .or. & + tracers_input(5) .ne. "rwmr" .or. tracers_input(6) .ne. "snmr" .or. & + tracers_input(7) .ne. "grle") stop 23 + + ! Reset the tracers array. + do is = 1, max_tracers + tracers(is) = "NULL" + tracers_input(is) = "NULL" + enddo + print*, "OK" + + print*, "testing read_setup_namelist with config_spectral_sigio..." + call read_setup_namelist("config_spectral_sigio.nml") + if (cycle_mon .ne. 7 .or. cycle_day .ne. 17 .or. cycle_hour .ne. 0) stop 114 + if (.not. convert_atm .or. .not. convert_sfc .or. convert_nst) stop 115 + if (regional .ne. 0 .or. halo_bndy .ne. 0 .or. halo_blend .ne. 0) stop 116 + if (trim(mosaic_file_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/C96_mosaic.nc") stop 117 + if (trim(fix_dir_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/fix_sfc") stop 118 + if (trim(orog_dir_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C96/") stop 119 + 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 120 + if (trim(data_dir_input_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/input_data/gfs.sigio") stop 121 + if (trim(atm_files_input_grid(1)) .ne. 'gdas.t00z.sanl') stop 122 + if (trim(sfc_files_input_grid(1)) .ne. 'gdas.t00z.sfcanl') stop 123 + if (varmap_file .ne. "NULL") stop 124 + if (thomp_mp_climo_file .ne. "NULL") stop 126 + if (trim(cres_target_grid) .ne. "C96") stop 127 + if (atm_weight_file .ne. "NULL") stop 128 + if (trim(input_type) .ne. "gfs_sigio") stop 129 + if (trim(external_model) .ne. "GFS") stop 130 + if (num_tracers .ne. 3) stop 131 + if (tracers(1) .ne. "sphum" .or. tracers(2) .ne. "o3mr" .or. tracers(3) .ne. "liq_wat") stop 132 + if (tracers_input(1) .ne. "spfh" .or. tracers_input(2) .ne. "o3mr" .or. & + tracers_input(3) .ne. "clwmr") stop 133 + + ! Reset the tracers array. + do is = 1, max_tracers + tracers(is) = "NULL" + tracers_input(is) = "NULL" + enddo + print*, "OK" + + print*, "testing read_setup_namelist with config_gfs_grib2..." + call read_setup_namelist("config_gfs_grib2.nml") + if (cycle_mon .ne. 11 .or. cycle_day .ne. 4 .or. cycle_hour .ne. 0) stop 94 + if (.not. convert_atm .or. .not. convert_sfc .or. convert_nst) stop 95 + if (regional .ne. 0 .or. halo_bndy .ne. 0 .or. halo_blend .ne. 0) stop 96 + if (trim(mosaic_file_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C192/C192_mosaic.nc") stop 97 + if (trim(fix_dir_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C192/fix_sfc") stop 98 + if (trim(orog_dir_target_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/fix/C192/") stop 99 + 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.l65.txt") stop 100 + if (trim(data_dir_input_grid) .ne. "/scratch1/NCEPDEV/da/George.Gayno/noscrub/reg_tests/chgres_cube/input_data/gfs.grib2") stop 101 + if (trim(grib2_file_input_grid) .ne. 'gfs.t00z.pgrb2.0p50.f000') stop 102 + if (trim(sfc_files_input_grid(1)) .ne. 'gdas.t00z.sfcanl') stop 103 + if (varmap_file .ne. "/scratch1/NCEPDEV/da/George.Gayno/ufs_utils.git/UFS_UTILS/reg_tests/chgres_cube/../../parm/varmap_tables/GFSphys_var_map.txt") stop 1010 + if (thomp_mp_climo_file .ne. "NULL") stop 106 + if (trim(cres_target_grid) .ne. "C192") stop 107 + if (atm_weight_file .ne. "NULL") stop 108 + if (trim(input_type) .ne. "grib2") stop 109 + if (trim(external_model) .ne. "GFS") stop 110 + if (num_tracers .ne. 7) stop 111 + 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 22 + if (tracers_input(1) .ne. "spfh" .or. tracers_input(2) .ne. "clwmr" .or. & + tracers_input(3) .ne. "o3mr" .or. tracers_input(4) .ne. "icmr" .or. & + tracers_input(5) .ne. "rwmr" .or. tracers_input(6) .ne. "snmr" .or. & + tracers_input(7) .ne. "grle") stop 23 + + ! Reset the tracers array. + do is = 1, max_tracers + tracers(is) = "NULL" + tracers_input(is) = "NULL" + enddo print*, "OK" - + print*, "SUCCESS!" end program ftst_program_setup