50 USE yomhook
,ONLY : lhook, dr_hook
51 USE parkind1
,ONLY : jprb
65 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
71 CHARACTER(LEN=12) :: yrecfm
72 CHARACTER(LEN=100):: ycomment
73 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'WRITESURF_SSO_N',0,zhook_handle)
83 ycomment=
'X_Y_AVG_ZS (M)'
85 hprogram,yrecfm,uss%XAVG_ZS(:),iresp,hcomment=ycomment)
88 ycomment=
'X_Y_SIL_ZS (M)'
90 hprogram,yrecfm,uss%XSIL_ZS(:),iresp,hcomment=ycomment)
98 ycomment=
'X_Y_SSO_STDEV (M)'
100 hprogram,yrecfm,uss%XSSO_STDEV(:),iresp,hcomment=ycomment)
104 ycomment=
'X_Y_MIN_ZS (M)'
106 hprogram,yrecfm,uss%XMIN_ZS(:),iresp,hcomment=ycomment)
109 ycomment=
'X_Y_MAX_ZS (M)'
111 hprogram,yrecfm,uss%XMAX_ZS(:),iresp,hcomment=ycomment)
114 ycomment=
'X_Y_SSO_ANIS (-)'
116 hprogram,yrecfm,uss%XSSO_ANIS(:),iresp,hcomment=ycomment)
119 ycomment=
'X_Y_SSO_DIR (DEG)'
121 hprogram,yrecfm,uss%XSSO_DIR(:),iresp,hcomment=ycomment)
124 ycomment=
'X_Y_SSO_SLOPE (-)'
126 hprogram,yrecfm,uss%XSSO_SLOPE(:),iresp,hcomment=ycomment)
135 ycomment=
'X_Y_HO2IP (M)'
137 hprogram,yrecfm,uss%XHO2IP(:),iresp,hcomment=ycomment)
140 ycomment=
'X_Y_HO2JP (M)'
142 hprogram,yrecfm,uss%XHO2JP(:),iresp,hcomment=ycomment)
145 ycomment=
'X_Y_HO2IM (M)'
147 hprogram,yrecfm,uss%XHO2IM(:),iresp,hcomment=ycomment)
150 ycomment=
'X_Y_HO2JM (M)'
152 hprogram,yrecfm,uss%XHO2JM(:),iresp,hcomment=ycomment)
155 ycomment=
'X_Y_AOSIP (-)'
157 hprogram,yrecfm,uss%XAOSIP(:),iresp,hcomment=ycomment)
160 ycomment=
'X_Y_AOSJP (-)'
162 hprogram,yrecfm,uss%XAOSJP(:),iresp,hcomment=ycomment)
165 ycomment=
'X_Y_AOSIM (-)'
167 hprogram,yrecfm,uss%XAOSIM(:),iresp,hcomment=ycomment)
170 ycomment=
'X_Y_AOSJM (-)'
172 hprogram,yrecfm,uss%XAOSJM(:),iresp,hcomment=ycomment)
173 IF (lhook) CALL dr_hook(
'WRITESURF_SSO_N',1,zhook_handle)
subroutine writesurf_sso_n(DGU, U, USS, HPROGRAM)