From d325299df94ef1da6184297f6a4cc0b057eed747 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Tue, 18 Sep 2018 15:30:27 +0200
Subject: [PATCH] Juan 18/10/2018:write_diag_misc_isban.F90, change ZMAX,from
automatic(error if DM%XSWI not initialized) to allocatable
---
src/SURFEX/write_diag_misc_isban.F90 | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/SURFEX/write_diag_misc_isban.F90 b/src/SURFEX/write_diag_misc_isban.F90
index 2b202e24c..36218dc62 100644
--- a/src/SURFEX/write_diag_misc_isban.F90
+++ b/src/SURFEX/write_diag_misc_isban.F90
@@ -45,6 +45,7 @@
!! XTSRAD_NAT instead of XAVG_TSRAD
!! delete NWG_SIZE
!! water table depth
+!! J. Escoabr 09/18 change ZMAX,from automatic(error if DM%XSWI not initialized) to allocatable
!!
!-------------------------------------------------------------------------------
!
@@ -110,7 +111,7 @@ INTEGER :: IRESP ! IRESP : return-code if a problem appears
CHARACTER(LEN=2) :: YLVL
CHARACTER(LEN=20) :: YFORM
!
-REAL, DIMENSION(SIZE(DM%XSWI,1)) :: ZMAX
+REAL, DIMENSION(:) , ALLOCATABLE :: ZMAX
INTEGER :: JL, JJ, JVAR, JOBS, JP, JI, JT, JK, ISIZE
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -176,6 +177,7 @@ IF (DM%LSURF_MISC_BUDGET) THEN
! --------------------------------------------------------
!
IF(IO%CISBA=='DIF')THEN
+ ALLOCATE( ZMAX(SIZE(DM%XSWI,1)))
ZMAX(:) = 0.
!
DO JP = 1,IO%NPATCH
@@ -198,6 +200,7 @@ IF (DM%LSURF_MISC_BUDGET) THEN
ENDDO
ENDDO
+ DEALLOCATE(ZMAX)
ENDIF
!
DO JL=1,IO%NGROUND_LAYER
--
GitLab