48 USE modi_open_namelist
49 USE modi_close_namelist
53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
62 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
70 REAL(KIND=JPRB) :: zhook_handle
75 IF (lhook) CALL dr_hook(
'READ_IDEAL_FLUX_CONF',0,zhook_handle)
87 CALL
posnam(inam,
'NAM_IDEAL_FLUX',gfound,iluout)
88 IF (gfound)
READ(unit=inam,nml=nam_ideal_flux)
90 IF (nforcf.GT.nforc_max .OR. nforct.GT.nforc_max) &
91 CALL
abor1_sfx(
"READ_IDEAL_FLUX_CONF: NFORCF AND NFORCT MUST BE LOWER THAN 48")
100 IF (custartype==
'Z0 ' .AND. xz0==xundef)
THEN
102 'FATAL ERROR : XZ0 must be prescribed in namelist NAM_IDEAL_FLUX if CUSTARTYPE="Z0 "')
105 IF (csftq==
'W/m2 ')
THEN
109 IF (lhook) CALL dr_hook(
'READ_IDEAL_FLUX_CONF',1,zhook_handle)
subroutine read_ideal_flux_conf(HPROGRAM)
subroutine abor1_sfx(YTEXT)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)