54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
67 TYPE(flake_t),
INTENT(INOUT) :: f
69 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
76 CHARACTER(LEN=12) :: yrecfm
77 CHARACTER(LEN=100):: ycomment
78 REAL(KIND=JPRB) :: zhook_handle
88 IF (lhook) CALL dr_hook(
'WRITESURF_FLAKE_N',0,zhook_handle)
90 ycomment=
'TS_WATER (K)'
92 hprogram,yrecfm,f%XTS(:),iresp,hcomment=ycomment)
98 hprogram,yrecfm,f%XT_SNOW(:),iresp,hcomment=ycomment)
102 hprogram,yrecfm,f%XT_ICE(:),iresp,hcomment=ycomment)
104 ycomment=
'T_WATER_MEAN (K)'
106 hprogram,yrecfm,f%XT_MNW(:),iresp,hcomment=ycomment)
108 ycomment=
'T_WATER_ML (K)'
110 hprogram,yrecfm,f%XT_WML(:),iresp,hcomment=ycomment)
112 ycomment=
'T_WATER_BOT (K)'
114 hprogram,yrecfm,f%XT_BOT(:),iresp,hcomment=ycomment)
118 hprogram,yrecfm,f%XT_B1(:),iresp,hcomment=ycomment)
120 ycomment=
'C_SHAPE_FACTOR ()'
122 hprogram,yrecfm,f%XCT(:),iresp,hcomment=ycomment)
124 ycomment=
'H_SNOW (m)'
126 hprogram,yrecfm,f%XH_SNOW(:),iresp,hcomment=ycomment)
130 hprogram,yrecfm,f%XH_ICE(:),iresp,hcomment=ycomment)
134 hprogram,yrecfm,f%XH_ML(:),iresp,hcomment=ycomment)
138 hprogram,yrecfm,f%XH_B1(:),iresp,hcomment=ycomment)
149 ycomment=
'Z0WATER (m)'
151 hprogram,yrecfm,f%XZ0(:),iresp,hcomment=ycomment)
156 ycomment=
'USTAR_WATER (m/s)'
158 hprogram,yrecfm,f%XUSTAR(:),iresp,hcomment=ycomment)
169 hprogram,yrecfm,f%TTIME,iresp,hcomment=ycomment)
170 IF (lhook) CALL dr_hook(
'WRITESURF_FLAKE_N',1,zhook_handle)
subroutine writesurf_flake_n(DGU, U, F, HPROGRAM)