54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
69 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
76 CHARACTER(LEN=2) :: ymth
79 CHARACTER(LEN=12) :: yrecfm
80 CHARACTER(LEN=100):: ycomment
81 REAL(KIND=JPRB) :: zhook_handle
91 IF (lhook) CALL dr_hook(
'WRITESURF_WATFLUX_N',0,zhook_handle)
92 IF(w%LINTERPOL_TS)
THEN
94 inmth=
SIZE(w%XTS_MTH,2)
97 WRITE(ymth,
'(I2)') (jmth-1)
98 yrecfm=
'TS_WATER'//adjustl(ymth(:len_trim(ymth)))
99 ycomment=
'TS_WATER month t'//adjustl(ymth(:len_trim(ymth)))
101 hprogram,yrecfm,w%XTS_MTH(:,jmth),iresp,hcomment=ycomment)
107 ycomment=
'TS_WATER (K)'
109 hprogram,yrecfm,w%XTS(:),iresp,hcomment=ycomment)
119 ycomment=
'Z0WATER (m)'
121 hprogram,yrecfm,w%XZ0(:),iresp,hcomment=ycomment)
132 hprogram,yrecfm,w%TTIME,iresp,hcomment=ycomment)
133 IF (lhook) CALL dr_hook(
'WRITESURF_WATFLUX_N',1,zhook_handle)
subroutine writesurf_watflux_n(DGU, U, W, HPROGRAM)