50 USE modi_get_default_nam_n
57 USE yomhook
,ONLY : lhook, dr_hook
58 USE parkind1
,ONLY : jprb
68 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
78 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'READ_DEFAULT_IDEAL_N',0,zhook_handle)
86 IF (iludes==0 .AND. lhook) CALL dr_hook(
'READ_DEFAULT_IDEAL_N',1,zhook_handle)
98 CALL
posnam(iludes,
'NAM_DIAG_SURFN',gfound,iluout)
99 IF (gfound)
READ(unit=iludes,nml=nam_diag_surfn)
104 IF (lhook) CALL dr_hook(
'READ_DEFAULT_IDEAL_N',1,zhook_handle)
subroutine init_nam_diag_surfn(DGF)
subroutine update_nam_diag_surfn(DGF)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine read_default_ideal_n(DGL, HPROGRAM)
subroutine get_luout(HPROGRAM, KLUOUT)
integer function get_current_model_index_surfex()
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)