diff --git a/var/da/da_buoy/da_get_innov_vector_buoy.inc b/var/da/da_buoy/da_get_innov_vector_buoy.inc index d22e35edea..d1eead94b0 100644 --- a/var/da/da_buoy/da_get_innov_vector_buoy.inc +++ b/var/da/da_buoy/da_get_innov_vector_buoy.inc @@ -134,7 +134,7 @@ subroutine da_get_innov_vector_buoy( it,num_qcstat_conv, grid, ob, iv) ! Surface data assimilation approach 2 ! ----------------------------------- - ! 1.2.1 Surface assmiilation approach 2(10-m u, v, 2-m t, q, + ! 1.2.1 Surface assimilation approach 2(10-m u, v, 2-m t, q, ! and sfc_p) call da_interp_lin_2d (grid%xb%u10, iv%info(buoy), 1,model_u) diff --git a/var/da/da_buoy/da_transform_xtoy_buoy.inc b/var/da/da_buoy/da_transform_xtoy_buoy.inc index 276b136328..45d4c4eb33 100644 --- a/var/da/da_buoy/da_transform_xtoy_buoy.inc +++ b/var/da/da_buoy/da_transform_xtoy_buoy.inc @@ -71,7 +71,7 @@ subroutine da_transform_xtoy_buoy (grid, iv, y) deallocate (vb) else if (sfc_assi_options == sfc_assi_options_2) then - ! [2.0] Surface assmiilation approach 2 + ! [2.0] Surface assimilation approach 2 call da_transform_xtopsfc(grid,iv,buoy,iv%buoy(:),y%buoy(:)) end if diff --git a/var/da/da_main/da_solve.inc b/var/da/da_main/da_solve.inc index 3bd06e577f..b8d99f3b61 100644 --- a/var/da/da_main/da_solve.inc +++ b/var/da/da_main/da_solve.inc @@ -531,7 +531,7 @@ read(cvt_unit) cvt close(cvt_unit) else - write(unit=message(1),fmt='(a)') "cvt file '"//trim(cvtfile)//"' does not exists, initiallizing cvt." + write(unit=message(1),fmt='(a)') "cvt file '"//trim(cvtfile)//"' does not exists, initializing cvt." call da_message(message(1:1)) call da_initialize_cv (cv_size, cvt) end if diff --git a/var/da/da_main/da_update_firstguess.inc b/var/da/da_main/da_update_firstguess.inc index b4b53a305e..4e2ca86af6 100755 --- a/var/da/da_main/da_update_firstguess.inc +++ b/var/da/da_main/da_update_firstguess.inc @@ -1,7 +1,7 @@ subroutine da_update_firstguess(grid, out_filename) !--------------------------------------------------------------------------- -! Purpose: Only replce the fields touched by WRFDA, other than re-generate +! Purpose: Only replace the fields touched by WRFDA, rather than re-generate ! whole wrfvar_output from the scratch. ! ! Update : jliu@ucar.edu Apr 1, 2013 diff --git a/var/da/da_main/da_wrfvar_main.f90 b/var/da/da_main/da_wrfvar_main.f90 index ca1ef8020e..daed12da15 100644 --- a/var/da/da_main/da_wrfvar_main.f90 +++ b/var/da/da_main/da_wrfvar_main.f90 @@ -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 call disable_quilting diff --git a/var/da/da_metar/da_transform_xtoy_metar.inc b/var/da/da_metar/da_transform_xtoy_metar.inc index f1f7f36c77..f37ae0371a 100644 --- a/var/da/da_metar/da_transform_xtoy_metar.inc +++ b/var/da/da_metar/da_transform_xtoy_metar.inc @@ -76,7 +76,7 @@ subroutine da_transform_xtoy_metar (grid, iv, y) deallocate (vb) else if (sfc_assi_options == sfc_assi_options_2) then - ! [2.0] Surface assmiilation approach 2 + ! [2.0] Surface assimilation approach 2 call da_transform_xtopsfc(grid,iv,metar,iv%metar(:),y%metar(:)) end if diff --git a/var/da/da_minimisation/da_write_diagnostics.inc b/var/da/da_minimisation/da_write_diagnostics.inc index 2cd5477569..ff229fdbde 100644 --- a/var/da/da_minimisation/da_write_diagnostics.inc +++ b/var/da/da_minimisation/da_write_diagnostics.inc @@ -1,7 +1,7 @@ subroutine da_write_diagnostics(it, grid,num_qcstat_conv, ob, iv, re, y, j) !--------------------------------------------------------------------------- - ! Purpose: Output data assmiilation diagnostics + ! Purpose: Output data assimilation diagnostics !--------------------------------------------------------------------------- implicit none diff --git a/var/da/da_physics/da_transform_xtopsfc.inc b/var/da/da_physics/da_transform_xtopsfc.inc index 16a13bd70c..7b938ac26e 100644 --- a/var/da/da_physics/da_transform_xtopsfc.inc +++ b/var/da/da_physics/da_transform_xtopsfc.inc @@ -36,7 +36,7 @@ subroutine da_transform_xtopsfc(grid, iv, obs_index, synop, y_synop) allocate (t(1,iv%info(obs_index)%n1:iv%info(obs_index)%n2)) allocate (q(1,iv%info(obs_index)%n1:iv%info(obs_index)%n2)) - ! 2.0 Surface assmiilation approach 2 (2-m t and q, 10-m u and v) + ! 2.0 Surface assimilation approach 2 (2-m t and q, 10-m u and v) call da_interp_lin_2d(grid%xa%u10, iv%info(obs_index), 1, u) call da_interp_lin_2d(grid%xa%v10, iv%info(obs_index), 1, v) diff --git a/var/da/da_setup_structures/da_setup_be_ncep_gfs.inc b/var/da/da_setup_structures/da_setup_be_ncep_gfs.inc index 50e9f92a99..da9e17dcfc 100644 --- a/var/da/da_setup_structures/da_setup_be_ncep_gfs.inc +++ b/var/da/da_setup_structures/da_setup_be_ncep_gfs.inc @@ -182,7 +182,7 @@ subroutine da_setup_be_ncep_gfs( grid, be ) ALLOCATE ( be % wgvz(its:ite,jts:jte,kts:kte) ) ! -! 2, load the WFR model latitude and map factor: +! 2, load the WRF model latitude and map factor: #ifdef DM_PARALLEL ij = ( ide- ids+1)*( jde- jds+1) @@ -420,7 +420,7 @@ subroutine da_setup_be_ncep_gfs( grid, be ) end do end do - ! potentail velocity: + ! potential velocity: do k=kts,kte do j=jts,jte do i=its,ite @@ -578,7 +578,7 @@ if ( max_ext_its > 1 ) then endif enddo ! -! Horizotal scales: +! Horizontal scales: if (rootproc) then write (be_rf_unit) hwll xsum = sum (hwll*hwll) @@ -630,7 +630,7 @@ if ( max_ext_its > 1 ) then ! write (*,'(5x,i3,1x,a,2x,"sum^2=",e20.12)') ii, vname, xsum enddo ! -! Horizotal scales: +! Horizontal scales: ! write (*,'(3x,a)') 'HORIZONTAL SCALES:' write (be_rf_unit) hwll xsum = sum (hwll*hwll) @@ -680,7 +680,7 @@ if ( max_ext_its > 1 ) then write (be_print_unit,'(5x,i3,1x,a,2x,"sum^2=",e20.12)') ii, vname, xxsum(1) enddo -! Horizotal scales: +! Horizontal scales: if (rootproc) & write (be_print_unit,'(3x,a)') 'READ IN THE HORIZONTAL SCALES:' if (rootproc) then diff --git a/var/da/da_ships/da_get_innov_vector_ships.inc b/var/da/da_ships/da_get_innov_vector_ships.inc index 542ee8e0ed..4f560b77e2 100644 --- a/var/da/da_ships/da_get_innov_vector_ships.inc +++ b/var/da/da_ships/da_get_innov_vector_ships.inc @@ -131,7 +131,7 @@ subroutine da_get_innov_vector_ships( it,num_qcstat_conv, grid, ob, iv) else if (sfc_assi_options == sfc_assi_options_2) then ! Surface data assimilation approach 2 - ! 1.2.1 Surface assmiilation approach 2(10-m u, v, 2-m t, q, and + ! 1.2.1 Surface assimilation approach 2(10-m u, v, 2-m t, q, and ! sfc_p) call da_interp_lin_2d (grid%xb%u10, iv%info(ships), 1, model_u) diff --git a/var/da/da_ships/da_transform_xtoy_ships.inc b/var/da/da_ships/da_transform_xtoy_ships.inc index ae11240ec3..d7ff0572b2 100644 --- a/var/da/da_ships/da_transform_xtoy_ships.inc +++ b/var/da/da_ships/da_transform_xtoy_ships.inc @@ -67,7 +67,7 @@ subroutine da_transform_xtoy_ships (grid, iv, y) deallocate (ub) deallocate (vb) else if (sfc_assi_options == sfc_assi_options_2) then - ! [2.0] Surface assmiilation approach 2 + ! [2.0] Surface assimilation approach 2 call da_transform_xtopsfc(grid,iv,ships,iv%ships(:),y%ships(:)) end if diff --git a/var/da/da_synop/da_get_innov_vector_synop.inc b/var/da/da_synop/da_get_innov_vector_synop.inc index 078c4d91dc..8662c5932d 100644 --- a/var/da/da_synop/da_get_innov_vector_synop.inc +++ b/var/da/da_synop/da_get_innov_vector_synop.inc @@ -132,7 +132,7 @@ subroutine da_get_innov_vector_synop( it,num_qcstat_conv, grid, ob, iv) ! Surface data assimilation approach 2 !------------------------------------ - ! 1.2.1 Surface assmiilation approach 2(10-m u, v, 2-m t, q, and sfc_p) + ! 1.2.1 Surface assimilation approach 2(10-m u, v, 2-m t, q, and sfc_p) call da_interp_lin_2d (grid%xb%u10, iv%info(synop), 1, model_u(1,:)) call da_interp_lin_2d (grid%xb%v10, iv%info(synop), 1, model_v(1,:)) diff --git a/var/da/da_tools/da_intpsfc_tem.inc b/var/da/da_tools/da_intpsfc_tem.inc index 66f45ec6c6..1f04d850c1 100644 --- a/var/da/da_tools/da_intpsfc_tem.inc +++ b/var/da/da_tools/da_intpsfc_tem.inc @@ -5,7 +5,7 @@ subroutine da_intpsfc_tem (val, ho, po, to, height, pressure, temp, kts, kte) ! ! Reference: ! --------- - ! The use of surface observations in four dimensional data assmiilation + ! The use of surface observations in four dimensional data assimilation ! Using a mesoscale model. ! Ruggiero et al., 1996, Monthly Weather Review, Volume 124, 1018-1033 ! diff --git a/var/da/da_transfer_model/da_transfer_wrftltoxa_adj.inc b/var/da/da_transfer_model/da_transfer_wrftltoxa_adj.inc index 301b4195e1..31754e2e49 100644 --- a/var/da/da_transfer_model/da_transfer_wrftltoxa_adj.inc +++ b/var/da/da_transfer_model/da_transfer_wrftltoxa_adj.inc @@ -1,7 +1,7 @@ subroutine da_transfer_wrftltoxa_adj(grid, config_flags, filnam, timestr) !--------------------------------------------------------------------------- - ! Purpose: Convert analysis increments into WRFAD increments + ! Purpose: Convert analysis increments into WRFDA increments ! (following xatowrf, but only keep the increments) !--------------------------------------------------------------------------- @@ -176,7 +176,7 @@ subroutine da_transfer_wrftltoxa_adj(grid, config_flags, filnam, timestr) grid%xa%v(is:ie, js:je, ks:ke) = 0.0 !--------------------------------------------------------------------------- - ! [4.0] CONVERT THETA inCREMENTS TO T inCREMENTS + ! [4.0] CONVERT THETA INCREMENTS TO T INCREMENTS !--------------------------------------------------------------------------- ! In the inverse, g_ph information is lost. This should be investigated later!!! diff --git a/var/da/da_transfer_model/da_transfer_wrftoxb.inc b/var/da/da_transfer_model/da_transfer_wrftoxb.inc index f24cc6da1e..92e8e7cc97 100644 --- a/var/da/da_transfer_model/da_transfer_wrftoxb.inc +++ b/var/da/da_transfer_model/da_transfer_wrftoxb.inc @@ -68,7 +68,7 @@ subroutine da_transfer_wrftoxb(xbx, grid, config_flags) !rizvi xbx%big_header%bhi(8,5) = grid%start_hour !--------------------------------------------------------------------------- - ! WRF-specific fitelds: + ! WRF-specific fields: !--------------------------------------------------------------------------- ptop = grid%p_top @@ -387,7 +387,7 @@ subroutine da_transfer_wrftoxb(xbx, grid, config_flags) (base_pres*(aln+albn)))**cpovcv ! total density grid%xb%rho(i,j,k)= 1.0 / (albn+aln) - ! pressure purtubation: + ! pressure perturbation: grid%p(i,j,k) = grid%xb%p(i,j,k) - ppb end do end do @@ -510,7 +510,7 @@ subroutine da_transfer_wrftoxb(xbx, grid, config_flags) ! Convert to specific humidity from mixing ratio of water vapor: grid%xb%q(i,j,k)=grid%xb%q(i,j,k)/(1.0+grid%xb%q(i,j,k)) - ! Background qrn needed for radar radial velocity assmiilation: + ! Background qrn needed for radar radial velocity assimilation: if (size(grid%moist,dim=4) >= 4) then grid%xb%qcw(i,j,k) = max(grid%moist(i,j,k,p_qc), 0.0) diff --git a/var/da/da_vtox_transforms/da_transform_xtoxa.inc b/var/da/da_vtox_transforms/da_transform_xtoxa.inc index 068abe712b..6e833c09e5 100644 --- a/var/da/da_vtox_transforms/da_transform_xtoxa.inc +++ b/var/da/da_vtox_transforms/da_transform_xtoxa.inc @@ -1,7 +1,7 @@ subroutine da_transform_xtoxa(grid) !-------------------------------------------------------------------------------------------------- - ! Purpose: Transfers fields from WRF TL fields to dignostic fields needed by observational operators + ! Purpose: Transfers fields from WRF TL fields to diagnostic fields needed by observational operators ! Updated for Analysis on Arakawa-C grid ! Author: Syed RH Rizvi, MMM/ESSL/NCAR, Date: 10/22/2008 !-------------------------------------------------------------------------------------------------- diff --git a/var/da/da_vtox_transforms/da_transform_xtoxa_adj.inc b/var/da/da_vtox_transforms/da_transform_xtoxa_adj.inc index a0c9ccbd5c..a294366a61 100644 --- a/var/da/da_vtox_transforms/da_transform_xtoxa_adj.inc +++ b/var/da/da_vtox_transforms/da_transform_xtoxa_adj.inc @@ -1,7 +1,7 @@ subroutine da_transform_xtoxa_adj(grid) !-------------------------------------------------------------------------------------------------- - ! Purpose: Transfers fields from WRF TL fields to dignostic fields needed by observational operators + ! Purpose: Transfers fields from WRF TL fields to diagnostic fields needed by observational operators ! Adjoint !-------------------------------------------------------------------------------------------------- diff --git a/var/da/da_vtox_transforms/da_transform_xtoxa_adj_all.inc b/var/da/da_vtox_transforms/da_transform_xtoxa_adj_all.inc index 82196f2fb7..82a71097be 100644 --- a/var/da/da_vtox_transforms/da_transform_xtoxa_adj_all.inc +++ b/var/da/da_vtox_transforms/da_transform_xtoxa_adj_all.inc @@ -1,7 +1,7 @@ subroutine da_transform_xtoxa_adj_all(grid) !-------------------------------------------------------------------------------------------------- - ! Purpose: Transfers fields from WRF TL fields to dignostic fields needed by observational operators + ! Purpose: Transfers fields from WRF TL fields to diagnostic fields needed by observational operators ! Adjoint !-------------------------------------------------------------------------------------------------- diff --git a/var/da/da_vtox_transforms/da_transform_xtoxa_all.inc b/var/da/da_vtox_transforms/da_transform_xtoxa_all.inc index db8886e85f..0d32b30f3e 100644 --- a/var/da/da_vtox_transforms/da_transform_xtoxa_all.inc +++ b/var/da/da_vtox_transforms/da_transform_xtoxa_all.inc @@ -1,7 +1,7 @@ subroutine da_transform_xtoxa_all(grid) !-------------------------------------------------------------------------------------------------- - ! Purpose: Transfers fields from WRF TL fields to dignostic fields needed by observational operators + ! Purpose: Transfers fields from WRF TL fields to diagnostic fields needed by observational operators ! Updated for Analysis on Arakawa-C grid ! Author: Syed RH Rizvi, MMM/ESSL/NCAR, Date: 10/22/2008 !-------------------------------------------------------------------------------------------------- @@ -71,7 +71,7 @@ subroutine da_transform_xtoxa_all(grid) call da_pt_to_rho_lin(grid) -!by lixin update perturbated geoh +!by lixin update perturbed geoh do j=jts,jte do i=its,ite