17 USE modd_data_cover, ONLY : tdata_seed, tdata_reap, xdata_watsup, xdata_irrig,&
18 ldata_irrig, xdata_vegtype, lclim_lai
22 USE yomhook
,ONLY : lhook, dr_hook
23 USE parkind1
,ONLY : jprb
34 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
40 CHARACTER(LEN=12) :: yrecfm
41 CHARACTER(LEN=100):: ycomment
49 REAL,
DIMENSION(6) :: zwork
50 REAL(KIND=JPRB) :: zhook_handle
53 IF (lhook) CALL dr_hook(
'WRITE_ECOCLIMAP2_DATA',0,zhook_handle)
55 ycomment=
'FLAG TO READ USER IRRIGATION DATA FOR ECOCLIMAP2'
57 hprogram,yrecfm,ldata_irrig,iresp,ycomment)
60 ycomment=
'FLAG TO USE CLIMATOLOGICAL LAI'
62 hprogram,yrecfm,lclim_lai,iresp,ycomment)
64 IF (.NOT. ldata_irrig .AND. lhook) CALL dr_hook(
'WRITE_ECOCLIMAP2_DATA',1,zhook_handle)
65 IF (.NOT. ldata_irrig)
RETURN
68 IF (xdata_vegtype(jcover,nvt_irr)==0.) cycle
69 WRITE(yrecfm,fmt=
'(A6,I3.3)')
'IRRIG_',jcover
70 WRITE(ycomment,fmt=
'(A47,I3.3)') &
71 'SEED MONTH&DAY, REAP MONTH&DAY, WATSUP, IRRIG ',jcover
72 zwork(1) = tdata_seed(jcover,nvt_irr)%TDATE%MONTH
73 zwork(2) = tdata_seed(jcover,nvt_irr)%TDATE%DAY
74 zwork(3) = tdata_reap(jcover,nvt_irr)%TDATE%MONTH
75 zwork(4) = tdata_reap(jcover,nvt_irr)%TDATE%DAY
76 zwork(5) = xdata_watsup(jcover,nvt_irr)
77 zwork(6) = xdata_irrig(jcover,nvt_irr)
79 hprogram,yrecfm,zwork,iresp,ycomment,
'-',
"Irrig_parameters")
81 IF (lhook) CALL dr_hook(
'WRITE_ECOCLIMAP2_DATA',1,zhook_handle)
subroutine write_ecoclimap2_data(DGU, U, HPROGRAM)