Skip to content
Snippets Groups Projects
Commit d325299d authored by Juan Escobar's avatar Juan Escobar
Browse files

Juan 18/10/2018:write_diag_misc_isban.F90, change ZMAX,from automatic(error if...

Juan 18/10/2018:write_diag_misc_isban.F90, change ZMAX,from automatic(error if DM%XSWI not initialized) to allocatable
parent b48fc539
No related branches found
No related tags found
No related merge requests found
...@@ -45,6 +45,7 @@ ...@@ -45,6 +45,7 @@
!! XTSRAD_NAT instead of XAVG_TSRAD !! XTSRAD_NAT instead of XAVG_TSRAD
!! delete NWG_SIZE !! delete NWG_SIZE
!! water table depth !! 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 ...@@ -110,7 +111,7 @@ INTEGER :: IRESP ! IRESP : return-code if a problem appears
CHARACTER(LEN=2) :: YLVL CHARACTER(LEN=2) :: YLVL
CHARACTER(LEN=20) :: YFORM 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 INTEGER :: JL, JJ, JVAR, JOBS, JP, JI, JT, JK, ISIZE
! !
REAL(KIND=JPRB) :: ZHOOK_HANDLE REAL(KIND=JPRB) :: ZHOOK_HANDLE
...@@ -176,6 +177,7 @@ IF (DM%LSURF_MISC_BUDGET) THEN ...@@ -176,6 +177,7 @@ IF (DM%LSURF_MISC_BUDGET) THEN
! -------------------------------------------------------- ! --------------------------------------------------------
! !
IF(IO%CISBA=='DIF')THEN IF(IO%CISBA=='DIF')THEN
ALLOCATE( ZMAX(SIZE(DM%XSWI,1)))
ZMAX(:) = 0. ZMAX(:) = 0.
! !
DO JP = 1,IO%NPATCH DO JP = 1,IO%NPATCH
...@@ -198,6 +200,7 @@ IF (DM%LSURF_MISC_BUDGET) THEN ...@@ -198,6 +200,7 @@ IF (DM%LSURF_MISC_BUDGET) THEN
ENDDO ENDDO
ENDDO ENDDO
DEALLOCATE(ZMAX)
ENDIF ENDIF
! !
DO JL=1,IO%NGROUND_LAYER DO JL=1,IO%NGROUND_LAYER
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment