42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
50 INTEGER :: NEMIS_GR_NBR
52 CHARACTER(LEN=3) ,
DIMENSION(:),
POINTER:: CEMIS_GR_AREA
63 CHARACTER(LEN=40),
DIMENSION(:),
POINTER:: CEMIS_GR_NAME
66 INTEGER,
DIMENSION(:),
POINTER:: NEMIS_GR_TIME
68 REAL,
DIMENSION(:,:,:),
POINTER:: XEMIS_GR_FIELDS
70 INTEGER :: NEMISPEC_NBR
91 REAL(KIND=JPRB) :: zhook_handle
92 IF (lhook) CALL dr_hook(
"MODD_EMIS_GR_FIELD_N:EMIS_GR_FIELD_INIT",0,zhook_handle)
93 nullify(yemis_gr_field%CEMIS_GR_AREA)
94 nullify(yemis_gr_field%CEMIS_GR_NAME)
95 nullify(yemis_gr_field%NEMIS_GR_TIME)
96 nullify(yemis_gr_field%XEMIS_GR_FIELDS)
97 yemis_gr_field%NEMIS_GR_NBR=0
98 yemis_gr_field%NEMISPEC_NBR=0
99 IF (lhook) CALL dr_hook(
"MODD_EMIS_GR_FIELD_N:EMIS_GR_FIELD_INIT",1,zhook_handle)
subroutine emis_gr_field_init(YEMIS_GR_FIELD)