19 USE modd_data_cover, ONLY : tdata_seed, tdata_reap, xdata_watsup, xdata_irrig,&
24 USE yomhook
,ONLY : lhook, dr_hook
25 USE parkind1
,ONLY : jprb
37 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
43 CHARACTER(LEN=12) :: yrecfm
51 REAL,
DIMENSION(6) :: zwork
52 REAL(KIND=JPRB) :: zhook_handle
55 IF (lhook) CALL dr_hook(
'READ_ECO2_IRRIG',0,zhook_handle)
58 hprogram,yrecfm,iversion,iresp)
61 hprogram,yrecfm,ibugfix,iresp)
63 IF (iversion<4 .OR. iversion==4 .AND. ibugfix<2)
THEN
65 IF (lhook) CALL dr_hook(
'READ_ECO2_IRRIG',1,zhook_handle)
71 hprogram,yrecfm,ldata_irrig,iresp)
73 IF (.NOT. ldata_irrig .AND. lhook) CALL dr_hook(
'READ_ECO2_IRRIG',1,zhook_handle)
74 IF (.NOT. ldata_irrig)
RETURN
77 IF (dtco%XDATA_VEGTYPE(jcover,nvt_irr)==0.) cycle
78 WRITE(yrecfm,fmt=
'(A6,I3.3)')
'IRRIG_',jcover
80 hprogram,yrecfm,zwork,iresp,hdir=
'-')
81 tdata_seed(jcover,nvt_irr)%TDATE%MONTH = nint(zwork(1))
82 tdata_seed(jcover,nvt_irr)%TDATE%DAY = nint(zwork(2))
83 tdata_reap(jcover,nvt_irr)%TDATE%MONTH = nint(zwork(3))
84 tdata_reap(jcover,nvt_irr)%TDATE%DAY = nint(zwork(4))
85 xdata_watsup(jcover,nvt_irr) = zwork(5)
86 xdata_irrig(jcover,nvt_irr) = zwork(6)
87 tdata_seed(jcover,nvt_irr)%TDATE%YEAR = 9999
88 tdata_seed(jcover,nvt_irr)%TIME = 0.
89 tdata_reap(jcover,nvt_irr)%TDATE%YEAR = 9999
90 tdata_reap(jcover,nvt_irr)%TIME = 0.
92 IF (lhook) CALL dr_hook(
'READ_ECO2_IRRIG',1,zhook_handle)
subroutine read_eco2_irrig(DTCO, HPROGRAM)