From 9197911a983413e9cf288462885fe4d5520f2734 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Tue, 18 Mar 2014 15:33:02 +0000
Subject: [PATCH] Juan 18/03/2014: Missing UPDATE_METRICS for arp2lfi // run
---
src/MNH/prep_real_case.f90 | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/src/MNH/prep_real_case.f90 b/src/MNH/prep_real_case.f90
index 97ba53e1c..951c7f53b 100644
--- a/src/MNH/prep_real_case.f90
+++ b/src/MNH/prep_real_case.f90
@@ -373,6 +373,7 @@
!! May 2006 Remove KEPS
!! Mar 2012 Add NAM_NCOUT for netcdf output
!! July 2013 (Bosseur & Filippi) Adds Forefire
+!! Mars 2014 (J.Escobar) Missing 'full' UPDATE_METRICS for arp2lfi // run
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -397,6 +398,7 @@ USE MODI_OPEN_PRC_FILES
USE MODI_READ_ALL_DATA_MESONH_CASE
USE MODI_READ_ALL_DATA_GRIB_CASE
USE MODI_METRICS
+USE MODI_UPDATE_METRICS
USE MODI_VER_PREP_GRIBEX_CASE
USE MODI_VER_PREP_MESONH_CASE
USE MODI_VER_THERMO
@@ -862,13 +864,10 @@ ALLOCATE(XDZZ(SIZE(XXHAT),SIZE(XYHAT),SIZE(XZHAT)))
!
CALL METRICS(XMAP,XDXHAT,XDYHAT,XZZ,XDXX,XDYY,XDZX,XDZY,XDZZ)
!
-CALL ADD3DFIELD_ll(TZFIELDS_ll,XDXX)
-CALL ADD3DFIELD_ll(TZFIELDS_ll,XDZX)
-CALL UPDATE_HALO_ll(TZFIELDS_ll,IINFO_ll)
-CALL CLEANLIST_ll(TZFIELDS_ll)
+CALL UPDATE_METRICS(CLBCX,CLBCY,XDXX,XDYY,XDZX,XDZY,XDZZ)
-CALL EXTRAPOL('W',XDXX,XDZX)
-CALL EXTRAPOL('S',XDYY,XDZY)
+!!$CALL EXTRAPOL('W',XDXX,XDZX)
+!!$CALL EXTRAPOL('S',XDYY,XDZY)
CALL SECOND_MNH(ZTIME2)
--
GitLab