40 USE yomhook
,ONLY : lhook, dr_hook
41 USE parkind1
,ONLY : jprb
51 CHARACTER(LEN=3),
INTENT(IN) :: hconversion
52 REAL,
DIMENSION(:),
INTENT(IN) :: prhoa
56 REAL(KIND=JPRB) :: zhook_handle
58 IF (lhook) CALL dr_hook(
'CH_CONVERSION_FACTOR',0,zhook_handle)
61 chn%XCONVERSION(:) = 1.
62 SELECT CASE (hconversion)
64 chn%XCONVERSION(:) = xavogadro * prhoa(:) / xmd
66 chn%XCONVERSION(:) = 1e4
68 chn%XCONVERSION(:) = 1e-6 * xavogadro / 86400.
70 CALL
abor1_sfx(
'CH_BUILDEMISSN: UNKNOWN CONVERSION FACTOR')
73 IF (lhook) CALL dr_hook(
'CH_CONVERSION_FACTOR',1,zhook_handle)
subroutine ch_conversion_factor(CHN, HCONVERSION, PRHOA)
subroutine abor1_sfx(YTEXT)