41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
50 CHARACTER(LEN=3) :: CCONVERSION
52 CHARACTER(LEN=5) :: CSNAP_TIME_REF
59 CHARACTER(LEN=12),
DIMENSION(:),
POINTER :: CEMIS_NAME
61 CHARACTER(LEN=40),
DIMENSION(:),
POINTER :: CEMIS_COMMENT
64 REAL,
DIMENSION(:,:,:),
POINTER:: XEMIS_FIELDS_SNAP
67 REAL,
DIMENSION(:,:),
POINTER:: XEMIS_FIELDS
70 REAL,
DIMENSION(:),
POINTER:: XDELTA_LEGAL_TIME
76 REAL,
DIMENSION(:,:,:),
POINTER:: XSNAP_MONTHLY
77 REAL,
DIMENSION(:,:,:),
POINTER:: XSNAP_DAILY
78 REAL,
DIMENSION(:,:,:),
POINTER:: XSNAP_HOURLY
79 REAL,
DIMENSION(:),
POINTER:: XCONVERSION
98 REAL(KIND=JPRB) :: zhook_handle
99 IF (lhook) CALL dr_hook(
"MODD_CH_SNAP_n:CH_EMIS_FIELD_INIT",0,zhook_handle)
100 nullify(ych_emis_snap%CEMIS_COMMENT)
101 nullify(ych_emis_snap%CEMIS_NAME)
102 nullify(ych_emis_snap%XDELTA_LEGAL_TIME)
103 nullify(ych_emis_snap%XEMIS_FIELDS)
104 nullify(ych_emis_snap%XEMIS_FIELDS_SNAP)
105 nullify(ych_emis_snap%XSNAP_DAILY)
106 nullify(ych_emis_snap%XSNAP_HOURLY)
107 nullify(ych_emis_snap%XSNAP_MONTHLY)
108 nullify(ych_emis_snap%XCONVERSION)
109 ych_emis_snap%CCONVERSION=
' '
110 ych_emis_snap%CSNAP_TIME_REF=
' '
111 ych_emis_snap%NEMIS_NBR=0
112 ych_emis_snap%NEMIS_SNAP=0
113 ych_emis_snap%NSNAP_M=0
114 ych_emis_snap%NSNAP_D=0
115 ych_emis_snap%NSNAP_H=0
116 IF (lhook) CALL dr_hook(
"MODD_CH_SNAP_n:CH_EMIS_FIELD_INIT",1,zhook_handle)
subroutine ch_emis_snap_init(YCH_EMIS_SNAP)