41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
56 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
63 CHARACTER(LEN=20 ):: ystring20
64 CHARACTER(LEN=3 ):: ystring03
67 CHARACTER(LEN=12) :: yrecfm
68 CHARACTER(LEN=100):: ycomment
69 REAL(KIND=JPRB) :: zhook_handle
76 IF (lhook) CALL dr_hook(
'WRITESURF_DUMMY_N',0,zhook_handle)
81 hprogram,yrecfm,duu%NDUMMY_NBR,iresp,hcomment=ycomment)
88 DO jdummy=1,duu%NDUMMY_NBR
90 WRITE(yrecfm,
'(A8,I3.3,A1)')
'DUMMY_GR',jdummy,
' '
91 ystring20=duu%CDUMMY_NAME(jdummy)
92 ystring03=duu%CDUMMY_AREA(jdummy)
93 ycomment=
'X_Y_'//yrecfm//ystring20//ystring03// &
96 hprogram,yrecfm,duu%XDUMMY_FIELDS(:,jdummy),iresp,hcomment=ycomment)
98 IF (lhook) CALL dr_hook(
'WRITESURF_DUMMY_N',1,zhook_handle)
subroutine writesurf_dummy_n(DGU, U, DUU, HPROGRAM)