From 3908280f43be26e6a80f9f026a63724c6c6b2c5d Mon Sep 17 00:00:00 2001
From: Philippe Wautelet <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 14 Apr 2016 15:21:28 +0000
Subject: [PATCH] Juan 14/04/2016: removed debug variable not allocated
---
src/MNH/spawn_zs.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/spawn_zs.f90 b/src/MNH/spawn_zs.f90
index db0816f90..83bcadd43 100644
--- a/src/MNH/spawn_zs.f90
+++ b/src/MNH/spawn_zs.f90
@@ -163,7 +163,7 @@ REAL, DIMENSION(:,:), ALLOCATABLE :: ZZS1_C ! zs of model 1 at iteration n or n+
REAL, DIMENSION(:,:), ALLOCATABLE :: ZZS2_C ! averaged zs of model 2 at iteration n
REAL, DIMENSION(:,:), ALLOCATABLE :: ZDZS_C ! difference between PZS1 and ZZS2
!$20140617 ZTZS1 result of SET_LSFIELD_1WAY_ll(PZS1)
-REAL, DIMENSION(:,:), ALLOCATABLE :: ZTZS1_C
+!JUAN REAL, DIMENSION(:,:), ALLOCATABLE :: ZTZS1_C
!$20140704 ZDZS_3D to use MAX_ll(array3D arg)
REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZDZS_3D
!$
@@ -455,7 +455,7 @@ IF (KDXRATIO/=1 .OR. KDYRATIO/=1) THEN
JCOUNTER,COUNT(ABS(ZDZS_C(:,:))>=1.E-3), &
IZSMAX(1)+2,IZSMAX(2)+2, &
! PZS1(KXOR+IZSMAX(1),KYOR+IZSMAX(2)), &
- ZTZS1_C(2+IZSMAX(1),2+IZSMAX(2)), &
+! ZTZS1_C(2+IZSMAX(1),2+IZSMAX(2)), &
ZZS2_C(IZSMAX(1),IZSMAX(2)), &
ZDZS_C(IZSMAX(1),IZSMAX(2))
ENDIF
--
GitLab