diff --git a/src/processing_mod.F90 b/src/processing_mod.F90 index c7e8dbee861b992a7d83b507a7f4949398075a69..3046ad30b5f7a4119a7b926c9bb1a930563fe711 100644 --- a/src/processing_mod.F90 +++ b/src/processing_mod.F90 @@ -191,7 +191,7 @@ CONTAINS ENDDO ENDDO ELSE - interp_napj(:,:,:,:,:,1:local_nz) = nadiab_moments(:,:,:,:,:,1:local_nz) + interp_napj(:,:,:,:,:,1:local_nz) = nadiab_moments(:,:,:,:,:,(1+ngz/2):(local_nz+ngz/2)) ENDIF END SUBROUTINE compute_interp_z