From e868186fd7d64fc2eeb7ec2c59e88c889e62fc93 Mon Sep 17 00:00:00 2001 From: Dusan Jovic Date: Tue, 24 Sep 2019 01:57:11 +0000 Subject: [PATCH] change delz from positive value to the original value in the model --- driver/fvGFS/fv_nggps_diag.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/driver/fvGFS/fv_nggps_diag.F90 b/driver/fvGFS/fv_nggps_diag.F90 index 01066f18e..07a471c32 100644 --- a/driver/fvGFS/fv_nggps_diag.F90 +++ b/driver/fvGFS/fv_nggps_diag.F90 @@ -514,7 +514,7 @@ subroutine fv_nggps_diag(Atm, zvir, Time) do k=1,npzo do j=jsco,jeco do i=isco,ieco - wk(i,j,k) = -Atm(n)%delz(i,j,k) + wk(i,j,k) = Atm(n)%delz(i,j,k) enddo enddo enddo