41 USE modi_default_schemes
43 USE modi_open_namelist
44 USE modi_close_namelist
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
60 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
61 CHARACTER(LEN=6),
INTENT(OUT) :: hnature
62 CHARACTER(LEN=6),
INTENT(OUT) :: hsea
63 CHARACTER(LEN=6),
INTENT(OUT) :: htown
64 CHARACTER(LEN=6),
INTENT(OUT) :: hwater
74 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'READ_PGD_SCHEMES',0,zhook_handle)
95 CALL
posnam(ilunam,
'NAM_PGD_SCHEMES',gfound,iluout)
96 IF (gfound)
READ(unit=ilunam,nml=nam_pgd_schemes)
105 CALL
test_nam_var_surf(iluout,
'CWATER ',cwater ,
'NONE ',
'WATFLX',
'FLUX ',
'FLAKE ')
116 IF (lhook) CALL dr_hook(
'READ_PGD_SCHEMES',1,zhook_handle)
subroutine default_schemes(HPROGRAM, HNATURE, HSEA, HTOWN, HWATER)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine read_pgd_schemes(HPROGRAM, HNATURE, HSEA, HTOWN, HWATER)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)