*IF DEF,CONTROL,AND,DEF,ATMOS INTHYD1.2
C ******************************COPYRIGHT****************************** GTS2F400.4987
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.4988
C GTS2F400.4989
C Use, duplication or disclosure of this code is subject to the GTS2F400.4990
C restrictions as set forth in the contract. GTS2F400.4991
C GTS2F400.4992
C Meteorological Office GTS2F400.4993
C London Road GTS2F400.4994
C BRACKNELL GTS2F400.4995
C Berkshire UK GTS2F400.4996
C RG12 2SZ GTS2F400.4997
C GTS2F400.4998
C If no contract has been raised with this copy of the code, the use, GTS2F400.4999
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.5000
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.5001
C Modelling at the above address. GTS2F400.5002
C ******************************COPYRIGHT****************************** GTS2F400.5003
C GTS2F400.5004
CLL SUBROUTINE INIT_HYD ---------------------------------------------- INTHYD1.3
CLL INTHYD1.4
CLL CW,D.GREGORY<-PROGRAMMERS OF SOME OR ALL OF PREVIOUS CODE OR CHANGES INTHYD1.5
CLL INTHYD1.6
CLL MODEL MODIFICATION HISTORY FROM MODEL VERSION 3.0: INTHYD1.7
CLL VERSION DATE INTHYD1.8
CLL 3.2 13/04/93 DYNAMIC ALLOCATION OF MAIN ARRAYS. R T H BARNES. @DYALLOC.2200
CLL 4.4 14/10/97 Deal with tiled canopy water content. Richard Betts ABX1F404.247
CLL 4.5 19/01/98 Replace JVEG_FLDS(6) with JSURF_CAP. D. Robinson. GDR6F405.92
CLL INTHYD1.9
CLL PROGRAMMING STANDARDS : UNIFIED MODEL DOCUMENTATION PAPER NO. 4 INTHYD1.10
CLL VERSION NO. 1 INTHYD1.11
CLL INTHYD1.12
CLL SYSTEMS TASK ## INTHYD1.13
CLL INTHYD1.14
CLL PURPOSE : TO SET CANOPY WATER TO ZERO WHEN CANOPY CAPACITY IS ZERO INTHYD1.15
CLL INTHYD1.16
CLL DOCUMENTATION : UNIFIED MODEL DOCUMENTATION PAPER P### INTHYD1.17
CLL INTHYD1.18
CLLEND----------------------------------------------------------------- INTHYD1.19
C INTHYD1.20
C*L ARGUMENTS--------------------------------------------------------- @DYALLOC.2201
C INTHYD1.22
SUBROUTINE INIT_HYD( 1ABX1F405.93
*CALL ARGSIZE 
@DYALLOC.2203
*CALL ARGD1 @DYALLOC.2204
*CALL ARGPTRA @DYALLOC.2205
& ICODE,CMESSAGE) @DYALLOC.2206
C INTHYD1.24
IMPLICIT NONE INTHYD1.25
*CALL CMAXSIZE @DYALLOC.2207
*CALL TYPSIZE @DYALLOC.2208
*CALL NSTYPES ABX1F404.249
*CALL TYPD1 @DYALLOC.2209
*CALL TYPPTRA @DYALLOC.2210
@DYALLOC.2211
LOGICAL L_VEG_FRACS ! TRUE if tiled land surface scheme in use. ABX1F404.250
INTEGER @DYALLOC.2212
& ICODE ! RETURN CODE : 0 NORMAL EXIT, >0 ERROR @DYALLOC.2213
CHARACTER*(*) @DYALLOC.2214
& CMESSAGE ! ERROR MESSAGE IF ICODE >0 @DYALLOC.2215
@DYALLOC.2216
C INTHYD1.28
C---------------------------------------------------------------------- INTHYD1.29
C INTERNAL LOOP COUNTERS INTHYD1.30
C---------------------------------------------------------------------- INTHYD1.31
C INTHYD1.32
INTEGER ABX1F404.251
& I ! Loop counter for land points ABX1F404.252
C INTHYD1.34
C*--------------------------------------------------------------------- INTHYD1.35
C INTHYD1.36
DO I=1,LAND_FIELD INTHYD1.37
IF ( D1(JCANOPY_WATER+I-1) .GT. D1(JSURF_CAP+I-1) ) GDR6F405.93
& D1(JCANOPY_WATER+I-1) = D1(JSURF_CAP+I-1) GDR6F405.94
END DO INTHYD1.40
C INTHYD1.41
RETURN INTHYD1.42
END INTHYD1.43
*ENDIF INTHYD1.44