From 09f7294dfad9ca9d375b1c6388893d04ba062059 Mon Sep 17 00:00:00 2001 From: ESCOBAR Juan <escj@nuwa.aerologie.net> Date: Wed, 10 Apr 2013 15:09:41 +0200 Subject: [PATCH] Juan 10/04/2013: put XRT mirror for ppm_met in advection.f90 --- MNH/deallocate_model1.f90 | 3 ++- MNH/modd_fieldn.f90 | 8 +++++--- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/MNH/deallocate_model1.f90 b/MNH/deallocate_model1.f90 index 7e0fb2a86..9872cb98d 100644 --- a/MNH/deallocate_model1.f90 +++ b/MNH/deallocate_model1.f90 @@ -112,7 +112,8 @@ IF ( KCALL==3 ) THEN IF (ASSOCIATED(XUT)) DEALLOCATE(XUT) IF (ASSOCIATED(XVT)) DEALLOCATE(XVT) IF (ASSOCIATED(XWT)) DEALLOCATE(XWT) - IF (ASSOCIATED(XTHT)) DEALLOCATE(XTHT) + !!$IF (ASSOCIATED(XTHT)) DEALLOCATE(XTHT) + IF (ALLOCATED(XTHT)) DEALLOCATE(XTHT) END IF IF ( KCALL==1 ) THEN DEALLOCATE(XRUS) diff --git a/MNH/modd_fieldn.f90 b/MNH/modd_fieldn.f90 index e992a91bc..ae0272686 100644 --- a/MNH/modd_fieldn.f90 +++ b/MNH/modd_fieldn.f90 @@ -104,7 +104,9 @@ REAL, DIMENSION(:,:,:), POINTER :: XUM=>NULL(),XVM=>NULL(),XWM=>NULL() REAL, DIMENSION(:,:,:), POINTER :: XUT=>NULL(),XVT=>NULL(),XWT=>NULL() REAL, DIMENSION(:,:,:), POINTER :: XRUS=>NULL(),XRVS=>NULL(),XRWS=>NULL() REAL, DIMENSION(:,:,:), POINTER :: XTHM=>NULL() -REAL, DIMENSION(:,:,:), POINTER :: XTHT=>NULL() +!!$REAL, DIMENSION(:,:,:), POINTER :: XTHT=>NULL() +REAL, DIMENSION(:,:,:), ALLOCATABLE :: XTHT +!$acc declare mirror (XTHT) REAL, DIMENSION(:,:,:), POINTER :: XRTHS=>NULL() REAL, DIMENSION(:,:,:), POINTER :: XTKEM=>NULL() REAL, DIMENSION(:,:,:), POINTER :: XTKET=>NULL() @@ -144,7 +146,7 @@ FIELD_MODEL(KFROM)%XRUS=>XRUS FIELD_MODEL(KFROM)%XRVS=>XRVS FIELD_MODEL(KFROM)%XRWS=>XRWS FIELD_MODEL(KFROM)%XTHM=>XTHM -FIELD_MODEL(KFROM)%XTHT=>XTHT +!!$FIELD_MODEL(KFROM)%XTHT=>XTHT FIELD_MODEL(KFROM)%XRTHS=>XRTHS FIELD_MODEL(KFROM)%XTKEM=>XTKEM FIELD_MODEL(KFROM)%XTKET=>XTKET @@ -175,7 +177,7 @@ XRUS=>FIELD_MODEL(KTO)%XRUS XRVS=>FIELD_MODEL(KTO)%XRVS XRWS=>FIELD_MODEL(KTO)%XRWS XTHM=>FIELD_MODEL(KTO)%XTHM -XTHT=>FIELD_MODEL(KTO)%XTHT +!!$XTHT=>FIELD_MODEL(KTO)%XTHT XRTHS=>FIELD_MODEL(KTO)%XRTHS XTKEM=>FIELD_MODEL(KTO)%XTKEM XTKET=>FIELD_MODEL(KTO)%XTKET -- GitLab