30 USE yomhook
,ONLY : lhook, dr_hook
31 USE parkind1
,ONLY : jprb
39 CHARACTER(LEN=3) ,
DIMENSION(:),
POINTER :: CDUMMY_AREA
50 CHARACTER(LEN=20),
DIMENSION(:),
POINTER :: CDUMMY_NAME
52 REAL,
DIMENSION(:,:),
POINTER :: XDUMMY_FIELDS
64 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
"MODD_DUMMY_SURF_FIELDS_N:DUMMY_SURF_FIELDS_INIT",0,zhook_handle)
66 nullify(ydummy_surf_fields%CDUMMY_NAME)
67 nullify(ydummy_surf_fields%CDUMMY_AREA)
68 nullify(ydummy_surf_fields%XDUMMY_FIELDS)
69 ydummy_surf_fields%NDUMMY_NBR=0
70 IF (lhook) CALL dr_hook(
"MODD_DUMMY_SURF_FIELDS_N:DUMMY_SURF_FIELDS_INIT",1,zhook_handle)
subroutine dummy_surf_fields_init(YDUMMY_SURF_FIELDS)