43 USE modi_open_namelist
44 USE modi_close_namelist
50 USE yomhook
,ONLY : lhook, dr_hook
51 USE parkind1
,ONLY : jprb
58 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
59 CHARACTER(LEN=4),
INTENT(OUT) :: hch_emis
72 CHARACTER(LEN=4) :: cch_emis
73 REAL(KIND=JPRB) :: zhook_handle
75 namelist/nam_ch_emissions/ cch_emis
82 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_CHEMISTRY',0,zhook_handle)
94 CALL
posnam(ilunam,
'NAM_CH_EMISSIONS',gfound,iluout)
95 IF (gfound)
READ(unit=ilunam,nml=nam_ch_emissions)
105 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_CHEMISTRY',1,zhook_handle)
subroutine read_nam_pgd_chemistry(HPROGRAM, HCH_EMIS)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)