From 0fdb911b6e75168941bb9069c6f4edefde5f0f8d Mon Sep 17 00:00:00 2001 From: Lauren Chilutti Date: Thu, 7 Oct 2021 08:33:36 -0400 Subject: [PATCH 1/2] Updating a continue statement in fv_nudge --- tools/fv_nudge.F90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/tools/fv_nudge.F90 b/tools/fv_nudge.F90 index c752ab66c..4d8329d92 100644 --- a/tools/fv_nudge.F90 +++ b/tools/fv_nudge.F90 @@ -782,7 +782,8 @@ 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 + go to 666 do k=1, km+1 pk0(k) = (ak0(k) + bk0(k)*ps_obs(i,j))**kappa enddo @@ -800,8 +801,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) From 05d3345695fd4ce045f4bdfa723e02f9d56049d7 Mon Sep 17 00:00:00 2001 From: Lauren Chilutti Date: Thu, 7 Oct 2021 08:50:21 -0400 Subject: [PATCH 2/2] update in fv_nudge --- tools/fv_nudge.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/tools/fv_nudge.F90 b/tools/fv_nudge.F90 index 4d8329d92..a00d87f0f 100644 --- a/tools/fv_nudge.F90 +++ b/tools/fv_nudge.F90 @@ -783,7 +783,6 @@ subroutine ps_nudging(dt, factor, factor_nwp, npz, ak, bk, ps_obs, mask, tm, ps, do j=js,je do i=is,ie - go to 666 do k=1, km+1 pk0(k) = (ak0(k) + bk0(k)*ps_obs(i,j))**kappa enddo