-
Notifications
You must be signed in to change notification settings - Fork 724
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.
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
Fixing typographic errors in the WRFDA code #2
Conversation
@mkavulich Is there any reason to not squash the two commits in this PR into just one commit? |
Since it is about fixing typos, could you also fix "assmiilation" |
@jamiebresch Good idea, working on that now |
…es (assmiilation -> assimilation). Found a few more typos along the way as well.
var/da/da_transfer_model/da_transfer_wrftoxb_lite.inc is not actually used. |
@@ -23,7 +23,7 @@ program da_wrfvar_main | |||
|
|||
implicit none | |||
|
|||
! Split initialisation into 2 parts so we can start and stop trace here | |||
! Split initialization into 2 parts so we can start and stop trace here |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
There are zillions of British spellings of initialisation within DA. I'd say leave these alone. Here's a grep in the var directory ...
find . -name *.inc -exec grep -i initialis {} ; -print > foo.txt
! Initialise columns k+1:n to columns of the unit matrix
./external/lapack/dorg2r.inc
! Initialise columns 1:n-k to columns of the unit matrix
./external/lapack/dorg2l.inc
! [1.0]: Initialise:
./da/da_tools/da_1d_eigendecomposition.inc
! [1.0] Initialise components of innovation vector:
./da/da_obs/da_setup_pseudo_obs.inc
! Initialise obs error factors (which will be overwritten in use_obs_errfac)
./da/da_obs/da_fill_obs_structures.inc
! Initialise obs error factors (which will be overwritten in use_obs_errfac)
./da/da_obs/da_fill_obs_structures_rain.inc
! [1.0] Initialise random number sequence:
./da/da_obs/da_random_omb_all.inc
! Initialise obs error factors (which will be overwritten in use_obs_errfac)
./da/da_obs/da_fill_obs_structures_radar.inc
! [2.0] Initialise components of innovation vector:
./da/da_ssmi/da_get_innov_vector_ssmt1.inc
! [3.0] Calculate rv, rf at OBS location and initialise components of &
./da/da_radar/da_get_innov_vector_radar.inc
! [2.0] Initialise components of innovation vector:
./da/da_rain/da_get_innov_vector_rain.inc
! [1.0] Initialise bins:
./da/da_statistics/da_data_distribution.inc
! [1.0] Initialise:
./da/da_define_structures/da_allocate_background_errors.inc
! Purpose: Initialises the Y-array
./da/da_define_structures/da_zero_y.inc
! [2.0] Initialise components of innovation vector:
./da/da_sound/da_get_innov_vector_sound.inc
! [1.0] Initialise:
./da/da_recursive_filter/da_recursive_filter_1d_adj.inc
! [1.0]: Initialise:
! [1.0]: Initialise:
./da/da_recursive_filter/da_transform_through_rf_adj_dual_res.inc
! [1.0]: Initialise:
! [1.0]: Initialise:
./da/da_recursive_filter/da_transform_through_rf_adj.inc
! [1.0]: Initialise:
./da/da_recursive_filter/da_transform_through_rf_dual_res.inc
! [1.0]: Initialise:
./da/da_recursive_filter/da_transform_through_rf.inc
! [1.0]: Initialise:
./da/da_recursive_filter/da_calculate_rf_factors.inc
! [1.0] Initialise:
./da/da_recursive_filter/da_apply_rf_1v.inc
! [1.0] Initialise:
./da/da_recursive_filter/da_recursive_filter_1d.inc
! [2.0] Initialise components of innovation vector:
./da/da_tamdar/da_get_innov_vector_tamdar.inc
! [1.0] Initialise:
./da/da_setup_structures/da_get_vertical_truncation.inc
! 5.0 Initialise control variable space components of header:
./da/da_setup_structures/da_setup_be_regional.inc
! [1.0] Initialise:
./da/da_setup_structures/da_rescale_background_errors.inc
! 4.0 Initialise control variable space components of header:
./da/da_setup_structures/da_setup_be_nmm_regional.inc
! [1.0] Initialise:
./da/da_test/da_check_cvtovv_adjoint.inc
! [1.0] Initialise:
./da/da_test/da_check_vvtovp_adjoint.inc
! [1.0] Initialise:
./da/da_test/da_check_vtox_adjoint.inc
! [1.0]: Initialise:
./da/da_test/da_check_balance.inc
! [1.0] Initialise:
./da/da_test/da_check_xtoy_adjoint.inc
! [1.0]: initialise:
./da/da_test/da_setup_testfield.inc
! [1.0] Initialise:
./da/da_test/da_check_vptox_adjoint.inc
! initialise index:
./da/da_tracing/da_trace_int_sort.inc
! Purpose: Initialise tracing
./da/da_tracing/da_trace_init.inc
! initialise index:
./da/da_tracing/da_trace_real_sort.inc
! [2.0] Initialise components of innovation vector:
./da/da_mtgirs/da_get_innov_vector_mtgirs.inc
! [2.0] Initialise wrfvar parameters:
./da/da_main/da_solve.inc
! [2.0] Initialise components of innovation vector:
./da/da_profiler/da_get_innov_vector_profiler.inc
! [2.0] Initialise components of innovation vector:
./da/da_pilot/da_get_innov_vector_pilot.inc
! [2.0] Initialise components of innovation vector:
./da/da_bogus/da_get_innov_vector_bogus.inc
! [2.0] Initialise components of innovation vector:
./da/da_airsr/da_get_innov_vector_airsr.inc
! [2.0] Initialise components of innovation vector:
./da/da_airep/da_get_innov_vector_airep.inc
! [1.0] Initialise:
./da/da_ffts/da_solve_poissoneqn_fct.inc
! [1.0] Initialise:
./da/da_ffts/da_solve_poissoneqn_fct_adj.inc
! [1.0] Initialise:
./da/da_ffts/da_solve_poissoneqn_fst_adj.inc
! [1.0] Initialise:
./da/da_ffts/da_solve_poissoneqn_fst.inc
! 0.0 initialise QC by flags assuming good obs
./da/da_radiance/da_qc_iasi.inc
! 0.0 initialise QC by flags assuming good obs
./da/da_radiance/da_qc_airs.inc
! 0.0 initialise QC by flags assuming good obs
./da/da_radiance/da_qc_hirs.inc
! 0.0 initialise QC by flags assuming good obs
./da/da_radiance/da_qc_atms.inc
! 0.0 initialise QC by flags assuming good obs
./da/da_radiance/da_qc_mwts.inc
! 0.0 initialise QC by flags assuming good obs
./da/da_radiance/da_qc_seviri.inc
! 0.0 initialise QC by flags assuming good obs
./da/da_radiance/da_qc_amsua.inc
! 0.0 initialise QC by flags assuming good obs
./da/da_radiance/da_qc_amsr2.inc
! 0.0 initialise QC flags by assuming good obs
./da/da_radiance/da_qc_mwhs.inc
! 0.0 initialise QC flags by assuming good obs
./da/da_radiance/da_qc_mhs.inc
gooddata_map(i,j) = .TRUE. ! Initialised for step 6)
./da/da_radiance/ATMS_Spatial_Average.inc
! 0.0 initialise QC by flags assuming good obs
./da/da_radiance/da_qc_ssmis.inc
! 0.0 initialise QC flags by assuming good obs
./da/da_radiance/da_qc_amsub.inc
x = 0.5*(x1 + x2) ! Initialise the guess for the root
./da/da_spectral/da_get_gausslats.inc
! Initialise Power spectrum
./da/da_spectral/da_test_spectral.inc
! Initialise the varibles
./da/da_gpspw/da_transform_xtoy_gpsztd_adj.inc
! Initialise the varibles
./da/da_gpspw/da_transform_xtoy_gpspw_adj.inc
! [1.0]: Initialise:
./da/da_vtox_transforms/da_check_eof_decomposition.inc
! [1.0] Initialise:
./da/da_vtox_transforms/da_transform_bal.inc
! [1.0] Initialise:
./da/da_vtox_transforms/da_transform_bal_adj.inc
! [2.0] Initialise components of innovation vector:
./da/da_metar/da_get_innov_vector_metar.inc
! [1.0] Initialise:
./da/da_dynamics/da_wpec_constraint_adj.inc
! [1.0] Initialise i and set multiplicative constants
./da/da_dynamics/da_wpec_constraint.inc
! [1.0] Initialise i and set multiplicative constants
./da/da_dynamics/da_wpec_constraint_lin.inc
! [1.0] Initialise:
./da/da_dynamics/da_uv_to_divergence.inc
! [1.0] Initialise iand set Multipilactive constants
./da/da_dynamics/da_balance_equation_lin.inc
! [1.0] Initialise:
./da/da_dynamics/da_wpec_constraint_geoterm.inc
! [1.0] Initialise:
./da/da_dynamics/da_uv_to_divergence_adj.inc
! [1.0] Initialise:
./da/da_dynamics/da_balance_cycloterm.inc
! [1.0] Initialise:
./da/da_dynamics/da_wpec_constraint_cycloterm.inc
! [1.0] Initialise:
./da/da_dynamics/da_uv_to_vorticity.inc
! [1.0] Initialise:
./da/da_dynamics/da_balance_cycloterm_lin.inc
! [1.0] Initialise:
./da/da_dynamics/da_balance_equation_adj.inc
! [1.0] Initialise:
./da/da_dynamics/da_balance_geoterm.inc
! [1.0] Initialise:
./da/da_dynamics/da_balance_cycloterm_adj.inc
! [1.0] initialise:
./da/da_physics/da_tp_to_qs.inc
! [1.0] initialise:
./da/da_physics/da_tp_to_qs_lin1.inc
! [1.0] initialise:
./da/da_physics/da_tprh_to_q_adj.inc
! [1.0] initialise:
! [1.0] initialise:
./da/da_physics/da_tp_to_qs1.inc
! [1.0] initialise:
./da/da_physics/da_prho_to_t_adj.inc
! [1.0] initialise:
./da/da_physics/da_tp_to_qs_adj.inc
! Purpose: Initialises the Y-array
./da/da_minimisation/da_calculate_j.inc
! [2.0] Initialise components of innovation vector:
./da/da_qscat/da_get_innov_vector_qscat.inc
! [4.0] Allocate and initialise residual structure:
./obsproc/MAP_plot/Dir_map/DA_Setup_Obs_Structures.inc
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
@davegill I changed that one because in the beginning of that same subroutine (a few lines earlier) the American spelling is used. But I can leave this one alone I guess.
purtubation->perturbation |
dignostic->diagnostic |
…case. (#9) * BRANCH commit: Development branch for Subashini Subramanian to work on adding landfall options to the HWRF idealized case. A https://svn-wrf-model.cgd.ucar.edu/branches/HWRF_ideal_landfall git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/HWRF_ideal_landfall@9440 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * ideal land fall changes for initializing the domain with a defined strip of land from land.nml file git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/HWRF_ideal_landfall@9569 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * ideal landfall changes. contains code to update land surface boundary conditions. git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/HWRF_ideal_landfall@9570 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * ideal landfall changes. function to move land through sea mask control variable added. git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/HWRF_ideal_landfall@9571 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * ideal landfall changes. the speed with which land underneath moves is set here. subroutine move_land called. other land surface parameters are updated from land.nml file. git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/HWRF_ideal_landfall@9572 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * ideal landfall changes. appropriate changes for boundary condition updates for SM (Sea Mask). git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/HWRF_ideal_landfall@9573 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * Initial commit git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/HWRF_ideal_landfall@9574 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * Updates to idealized HWRF code, from Subashini modified: dyn_nmm/module_NEST_UTIL.F modified: dyn_nmm/module_initialize_tropical_cyclone.F modified: dyn_nmm/solve_nmm.F modified: test/nmm_tropical_cyclone/land.nml * Hwrf (#2) * MergeH216: copying HWRF branch to merge H216 changes to HWRF in preparation for merging to trunk git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/MergeH216@9406 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * Sync with revision 9364 of branch H216 git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/MergeH216@9407 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * Partially merged from OperH216 branch git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/MergeH216@9444 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * More merging git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/MergeH216@9454 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * More Merges and bug fixes git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/MergeH216@9459 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * More Merges and bug fixes git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/MergeH216@9460 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * More merging in ./frame git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/MergeH216@9486 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * More merging in ./phys git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/MergeH216@9487 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * More merging in ./share git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/MergeH216@9488 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * merge surface module git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/MergeH216@9489 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * merge bug fix git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/MergeH216@9490 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * Bug fix in module_sf_gfdl.F git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/MergeH216@9491 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * Sync with OperH216 git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/MergeH216@9492 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * Branch commit: added long and short wave heating rate variables git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/HWRF@9561 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * more complete output files using auxiliary stream 4 git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/HWRF@9563 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * changes for ER overlap from trunk code that is weeks old git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/HWRF@9565 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * Reverse merging changes made in error from JHenders. git-svn-id: https://svn-wrf-model.cgd.ucar.edu/branches/HWRF@9567 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d * set landfall to false for default * update namelists for V3.8a * Update history-output for sea mask (SM)
KEYWORDS: version update SOURCE: internal PURPOSE: Update version for pre-release #2 for v3.8. DESCRIPTION OF CHANGES: Modify the character string so that model data now reflects the pre-release #2. LIST OF MODIFIED FILES (annotated if not obvious, not required to be on a single line): M inc/version_decl TESTS CONDUCTED (explicitly state mandatory, voluntary, and assigned tests, not required to be on a single line): 1) Cavalierly not running anything at all. Index: version_decl =================================================================== --- version_decl (revision 9178) +++ version_decl (working copy) @@ -1 +1 @@ - CHARACTER (LEN=10) :: release_version = 'V3.8pre#1 ' + CHARACTER (LEN=10) :: release_version = 'V3.8pre#2 ' git-svn-id: https://svn-wrf-model.cgd.ucar.edu/trunk@9179 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d
…#2) (#517) TYPE: bug fix KEYWORDS: RRTMG FAST, GNU SOURCE: internal DESCRIPTION OF CHANGES: With GNU version 6.4.0, 6.5.0, 7.1.0, 7.2.0, and 7.3.0, the WRF RRTMG FAST LW scheme causes an internal compiler error for some optimization levels. The RRTMG code looks reasonable, so there does not seem an obvious code fix to implement in the RRTMG FAST LW scheme. ``` module_ra_rrtmg_swf.f90:5612:0: use rrsw_kg21_f, only : kao, kbo, selfrefo, forrefo, sfluxrefo, & internal compiler error: in gfc_trans_use_stmts, at fortran/trans-decl.c:4920 module_ra_rrtmg_swf.f90:5612:0: internal compiler error: Abort trap: 6 gfortran: internal compiler error: Abort trap: 6 (program f951) ``` The solution is to BE EASILY ABLE TO remove the RRTMG FAST code via an ifdef. LIST OF MODIFIED FILES: M phys/module_physics_init.F M phys/module_ra_rrtmg_lwf.F M phys/module_ra_rrtmg_swf.F M phys/module_radiation_driver.F M share/module_check_a_mundo.F M arch/postamble TESTS CONDUCTED: - [x] Code builds with GNU/7.2.0 with -D optimization with mods (i.e. NO RRTMG FAST) - [x] Code does not build with newer GNU with -D optimization without mods
… data (#875) TYPE: bug fix KEYWORDS: LBC, valid time SOURCE: identified by Michael Duda (NCAR/MMM), fixed internally DESCRIPTION OF CHANGES: Problem: 1. If a user tried to start a simulation _after_ the last LBC valid period, the WRF model would get into a nearly infinite loop and print out repeated statements: ``` THIS TIME 2000-01-24_18:00:00, NEXT TIME 2000-01-25_00:00:00 d01 2000-01-25_06:00:00 Input data is acceptable to use: wrfbdy_d01 2 input_wrf: wrf_get_next_time current_date: 2000-01-24_18:00:00 Status = -4 d01 2000-01-25_06:00:00 ---- ERROR: Ran out of valid boundary conditions in file wrfbdy_d01 ``` 2. If a user tries to extend the model simulation beyond that valid times of the LBC, the code behavior is not controlled (nearly infinite loops on some machines, or runtime errors with a backtrace on other machines). Solution: In another routine, the lateral boundary condition is read to get to the correct time. Once inside of share/input_wrf.F, we should be at the correct time. There is no need to try to get to the next time. In this particular case, the effort to get to the next time fails, but we try again (and again and again). This solution fixes both problems identified above. ISSUE: Fixes #769 "WRF doesn't halt when beginning LBC time is not in wrfbdy_d01 file" LIST OF MODIFIED FILES: M share/input_wrf.F TESTS CONDUCTED: 1. Without fix, start the model after the last valid time of the LBC file => lots of repeated messages ``` THIS TIME 2000-01-24_18:00:00, NEXT TIME 2000-01-25_00:00:00 d01 2000-01-25_06:00:00 Input data is acceptable to use: wrfbdy_d01 2 input_wrf: wrf_get_next_time current_date: 2000-01-24_18:00:00 Status = -4 d01 2000-01-25_06:00:00 ---- ERROR: Ran out of valid boundary conditions in file wrfbdy_d01 ``` 2. With this fix, when LBC stops at 2000 01 25 00, and WRF starts at 2000 01 25 06 ``` d01 2000-01-25_06:00:00 Input data is acceptable to use: wrfbdy_d01 THIS TIME 2000-01-24_12:00:00, NEXT TIME 2000-01-24_18:00:00 d01 2000-01-25_06:00:00 Input data is acceptable to use: wrfbdy_d01 THIS TIME 2000-01-24_18:00:00, NEXT TIME 2000-01-25_00:00:00 d01 2000-01-25_06:00:00 Input data is acceptable to use: wrfbdy_d01 2 input_wrf: wrf_get_next_time current_date: 2000-01-24_18:00:00 Status = -4 -------------- FATAL CALLED --------------- FATAL CALLED FROM FILE: <stdin> LINE: 1134 ---- ERROR: Ran out of valid boundary conditions in file wrfbdy_d01 ------------------------------------------- ``` 3. Without this fix, if we try to extend the module simulation beyond the valid lateral boundary times ``` Timing for main: time 2000-01-24_23:54:00 on domain 1: 0.53782 elapsed seconds Timing for main: time 2000-01-24_23:57:00 on domain 1: 0.51111 elapsed seconds Timing for main: time 2000-01-25_00:00:00 on domain 1: 0.54507 elapsed seconds Timing for Writing wrfout_d01_2000-01-25_00:00:00 for domain 1: 0.03793 elapsed seconds d01 2000-01-25_00:00:00 Input data is acceptable to use: wrfbdy_d01 2 input_wrf: wrf_get_next_time current_date: 2000-01-25_00:00:00 Status = -4 d01 2000-01-25_00:00:00 ---- ERROR: Ran out of valid boundary conditions in file wrfbdy_d01 At line 777 of file module_date_time.f90 Fortran runtime error: Bad value during integer read Error termination. Backtrace: #0 0x10e67c36c #1 0x10e67d075 #2 0x10e67d7e9 ``` 4. With this fix, if we try to extend the module simulation beyond the valid lateral boundary times ``` Timing for main: time 2000-01-24_23:54:00 on domain 1: 0.60755 elapsed seconds Timing for main: time 2000-01-24_23:57:00 on domain 1: 0.57641 elapsed seconds Timing for main: time 2000-01-25_00:00:00 on domain 1: 0.60817 elapsed seconds Timing for Writing wrfout_d01_2000-01-25_00:00:00 for domain 1: 0.04499 elapsed seconds d01 2000-01-25_00:00:00 Input data is acceptable to use: wrfbdy_d01 2 input_wrf: wrf_get_next_time current_date: 2000-01-25_00:00:00 Status = -4 -------------- FATAL CALLED --------------- FATAL CALLED FROM FILE: <stdin> LINE: 1134 ---- ERROR: Ran out of valid boundary conditions in file wrfbdy_d01 ------------------------------------------- ``` MMM Classroom regtest; em_real, nmm, em_chem; GNU only
Add tendencies output
TYPE: bug fix KEYWORDS: unary operator, Noahmp SOURCE: Internal DESCRIPTION OF CHANGES: Problem: Found more occurrences of `a* -b` in Noahmp. A space is in between `*` and `-1`. OK even for Cray, but it is still non-standard. Solution: The same solution is applied: add parentheses: `a * (-b)`. ASSOCIATED REPOSITORY CHANGE: NCAR/noahmp#33 LIST OF MODIFIED FILES: modified: phys/noahmp TESTS CONDUCTED: 1. More code is fixed. 2. Jenkins tests are all passing.
SWiFT 20131108 perturbation methods intercomparison convective case
Feature/bathymetry
This reverts commit 82447aa. modified: compile modified: tools/gen_wrf_io.c
sync up develop branch
TYPE: text only
KEYWORDS: WRFDA
SOURCE: internal
DESCRIPTION OF CHANGES:
There are several typos in the WRFDA code that needed fixing. This does not impact results.
LIST OF MODIFIED FILES:
M var/da/da_main/da_solve.inc
M var/da/da_main/da_update_firstguess.inc
M var/da/da_main/da_wrfvar_main.f90
M var/da/da_setup_structures/da_setup_be_ncep_gfs.inc
M var/da/da_transfer_model/da_transfer_wrftltoxa_adj.inc
TESTS CONDUCTED: None, text-only change.