7 dtgd, tgdo, tgdp, tvg, &
57 USE yomhook
,ONLY : lhook, dr_hook
58 USE parkind1
,ONLY : jprb
75 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
81 CHARACTER(LEN=12) :: yrecfm
82 CHARACTER(LEN=100):: ycomment
83 CHARACTER(LEN=4 ) :: ylvl
87 REAL(KIND=JPRB) :: zhook_handle
91 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_TEB_VEG_N',0,zhook_handle)
98 hprogram,yrecfm,tvg%CISBA,iresp,hcomment=ycomment)
102 IF(tvg%CISBA==
'DIF')
THEN
103 DO jlayer=1,tgdo%NGROUND_LAYER
104 WRITE(ylvl,
'(I4)') jlayer
105 yrecfm=
'GD_SGRID'//adjustl(ylvl(:len_trim(ylvl)))
106 ycomment=
'Depth of TEB Garden soilgrid layer '//adjustl(ylvl(:len_trim(ylvl)))
108 hprogram,yrecfm,tgdo%XSOILGRID(jlayer),iresp,hcomment=ycomment)
117 hprogram,yrecfm,tgdo%NGROUND_LAYER,iresp,hcomment=ycomment)
124 hprogram,yrecfm,dtgd%NTIME,iresp,hcomment=ycomment)
129 ycomment=
'X_Y_GD_CLAY'
131 hprogram,yrecfm,tgdp%XCLAY(:,1),iresp,hcomment=ycomment)
136 ycomment=
'X_Y_GD_SAND'
138 hprogram,yrecfm,tgdp%XSAND(:,1),iresp,hcomment=ycomment)
143 ycomment=
'X_Y_GD_RUNOFFB'
145 hprogram,yrecfm,tgdp%XRUNOFFB,iresp,hcomment=ycomment)
150 ycomment=
'X_Y_GD_WDRAIN'
152 hprogram,yrecfm,tgdp%XWDRAIN,iresp,hcomment=ycomment)
155 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_TEB_VEG_N',1,zhook_handle)
subroutine writesurf_pgd_teb_veg_n(DGU, U, DTGD, TGDO, TGDP, TVG, HPROGRAM)