47 USE modi_open_namelist
48 USE modi_close_namelist
51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
59 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
60 CHARACTER(LEN=3),
INTENT(OUT) :: hrespsl
69 REAL(KIND=JPRB) :: zhook_handle
76 namelist/nam_prep_isba_carbon/crespsl
82 IF (lhook) CALL dr_hook(
'READ_PREP_ISBA_CARBON',0,zhook_handle)
95 CALL
posnam(ilunam,
'NAM_PREP_ISBA_CARBON',gfound,iluout)
96 IF (gfound)
READ(unit=ilunam,nml=nam_prep_isba_carbon)
104 IF (lhook) CALL dr_hook(
'READ_PREP_ISBA_CARBON',1,zhook_handle)
subroutine read_prep_isba_carbon(HPROGRAM, HRESPSL)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)