From c2decd7cad5abb376ed4189aa7628acf8616e9bf Mon Sep 17 00:00:00 2001 From: laurenchilutti <60401591+laurenchilutti@users.noreply.github.com> Date: Thu, 7 Oct 2021 08:56:11 -0400 Subject: [PATCH] Updating a continue statement in fv_nudge (#153) * update in fv_nudge to fix 666 label logic --- tools/fv_nudge.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tools/fv_nudge.F90 b/tools/fv_nudge.F90 index c752ab66c..a00d87f0f 100644 --- a/tools/fv_nudge.F90 +++ b/tools/fv_nudge.F90 @@ -782,7 +782,7 @@ subroutine ps_nudging(dt, factor, factor_nwp, npz, ak, bk, ps_obs, mask, tm, ps, if ( kmax < km ) call mpp_error(FATAL,'==> KMAX must be larger than km') do j=js,je - do 666 i=is,ie + do i=is,ie do k=1, km+1 pk0(k) = (ak0(k) + bk0(k)*ps_obs(i,j))**kappa enddo @@ -800,8 +800,8 @@ subroutine ps_nudging(dt, factor, factor_nwp, npz, ak, bk, ps_obs, mask, tm, ps, pt0 = tm(i,j)/(pk0(km+1)-pk0(km))*(kappa*(pn0(km+1)-pn0(km))) pst = pk0(km+1) + (gz0(i,j)-phis(i,j))/(cp_air*pt0) endif -666 continue ! i-loop - ps_dt(i,j) = pst**(1./kappa) - ps(i,j) +666 ps_dt(i,j) = pst**(1./kappa) - ps(i,j) + enddo ! i-loop enddo ! j-loop if( nf_ps>0 ) call del2_scalar(ps_dt, del2_cd, 1, nf_ps, bd, npx, npy, gridstruct, domain)