update

jswhit · Jan 21, 2025 · 1bea1a2 · 1bea1a2
1 parent ebc1908
commit 1bea1a2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/enkf/controlvec.f90 b/src/enkf/controlvec.f90
@@ -316,7 +316,7 @@ subroutine write_control(no_inflate_flag)
             valmax = maxval(grdin_mean(:,clevels(nvar-1)+1:clevels(nvar),nb,1))
             write(6,100) trim(cvars3d(nvar)),valmin,valmax
             if (trim(adjustl(cvars3d(nvar))) .eq. 'u' .or. trim(adjustl(cvars3d(nvar))) .eq. 'v') then
-               if (valmax .gt. 80 .or. valmin .lt. -80) then
+               if (valmax .gt. 150 .or. valmin .lt. -150) then
                   print *,'unrealistic analysis increment, stopping..'
                   call stop2(504)
                endif

diff --git a/src/enkf/params.f90 b/src/enkf/params.f90
@@ -547,7 +547,7 @@ subroutine read_namelist()
      print *,'model-space vertical localization enabled'
      print *,'lnsigcutoff* values read from namelist ignored!'
      print *,'neigv = ',neigv
-     print *,'vertical localization cutoff distance (lnp units) =',&
+     print *,'vertical localization cutoff distance (lnp units or model levs) =',&
             modelspace_vloc_cutoff
      print *,'eigenvector truncation threshold = ',modelspace_vloc_thresh
      print *,'vertical localization eigenvalues'