From 7f5471de0e1dcc7d9df588ef573b80c757caf93f Mon Sep 17 00:00:00 2001
From: janharlass <47660705+janharlass@users.noreply.github.com>
Date: Fri, 15 Feb 2019 11:33:55 +0100
Subject: [PATCH] Update cdfvFWov.f90

correct file name for mesh_zgr section
---
 src/cdfvFWov.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cdfvFWov.f90 b/src/cdfvFWov.f90
index 53baab5..a421474 100644
--- a/src/cdfvFWov.f90
+++ b/src/cdfvFWov.f90
@@ -174,8 +174,8 @@ PROGRAM cdfvFWov
   rmaskn(:,:) = getvarxz(cf_mask, cn_tmask, kj=2,   kpi=npiglo, kpz=npk,    kimin=1, kkmin=1)
   rmaskv(:,:) = getvarxz(cf_mask, cn_vmask, kj=1,   kpi=npiglo, kpz=npk,    kimin=1, kkmin=1)
   de1v(:,:)   = getvar  (cf_hgr,  cn_ve1v,  klev=1, kpi=npiglo, kpj=npjglo, kimin=1, kjmin=1)
-  de3v(:,:)   = getvarxz(cn_fe3v, cn_ve3v,  kj=1,   kpi=npiglo, kpz=npk,    kimin=1, kkmin=1)
-
+  de3v(:,:)   = getvarxz(cf_zgr, cn_ve3v,  kj=1,   kpi=npiglo, kpz=npk,    kimin=1, kkmin=1)
+  
   WHERE ( rmasks /= 0. ) rmasks = 1.
   WHERE ( rmaskn /= 0. ) rmaskn = 1.
   WHERE ( rmaskv /= 0. ) rmaskv = 1.