43 USE modi_get_default_nam_n
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
60 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
69 REAL(KIND=JPRB) :: zhook_handle
72 IF (lhook) CALL dr_hook(
'READ_DEFAULT_SURF_ATM',0,zhook_handle)
77 IF (iludes==0 .AND. lhook) CALL dr_hook(
'READ_DEFAULT_SURF_ATM',1,zhook_handle)
83 CALL
posnam(iludes,
'NAM_CHS_ORILAM',gfound,iluout)
84 IF (gfound)
READ(unit=iludes,nml=nam_chs_orilam)
85 CALL
posnam(iludes,
'NAM_SURF_ATM',gfound,iluout)
86 IF (gfound)
READ(unit=iludes,nml=nam_surf_atm)
87 CALL
posnam(iludes,
'NAM_WRITE_SURF_ATM',gfound,iluout)
88 IF (gfound)
READ(unit=iludes,nml=nam_write_surf_atm)
89 IF (lhook) CALL dr_hook(
'READ_DEFAULT_SURF_ATM',1,zhook_handle)
subroutine read_default_surf_atm(HPROGRAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)