54 USE modi_get_default_nam_n
62 USE yomhook
,ONLY : lhook, dr_hook
63 USE parkind1
,ONLY : jprb
75 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
85 REAL(KIND=JPRB) :: zhook_handle
88 IF (lhook) CALL dr_hook(
'READ_DEFAULT_SURF_ATM_N',0,zhook_handle)
93 IF (iludes==0 .AND. lhook) CALL dr_hook(
'READ_DEFAULT_SURF_ATM_N',1,zhook_handle)
98 IF (imi.NE.-1 .AND. lnam_read)
THEN
112 CALL
posnam(iludes,
'NAM_SSON',gfound,iluout)
113 IF (gfound)
READ(unit=iludes,nml=nam_sson)
114 CALL
posnam(iludes,
'NAM_DIAG_SURFN',gfound,iluout)
115 IF (gfound)
READ(unit=iludes,nml=nam_diag_surfn)
116 CALL
posnam(iludes,
'NAM_WRITE_DIAG_SURFN',gfound,iluout)
117 IF (gfound)
READ(unit=iludes,nml=nam_write_diag_surfn)
118 CALL
posnam(iludes,
'NAM_DIAG_SURF_ATMN',gfound,iluout)
119 IF (gfound)
READ(unit=iludes,nml=nam_diag_surf_atmn)
120 CALL
posnam(iludes,
'NAM_CH_CONTROLN',gfound,iluout)
121 IF (gfound)
READ(unit=iludes,nml=nam_ch_controln)
122 CALL
posnam(iludes,
'NAM_CH_SURFN',gfound,iluout)
123 IF (gfound)
READ(unit=iludes,nml=nam_ch_surfn)
135 IF (lhook) CALL dr_hook(
'READ_DEFAULT_SURF_ATM_N',1,zhook_handle)
subroutine update_nam_ch_controln(CHI)
subroutine update_nam_diag_surf_atmn(DGU)
subroutine update_nam_write_diag_surfn(DGU)
subroutine init_nam_ch_controln(CHI)
subroutine update_nam_ch_surfn(CHU)
subroutine init_nam_diag_surfn(DGF)
subroutine update_nam_sson(USS)
subroutine update_nam_diag_surfn(DGF)
subroutine init_nam_ch_surfn(CHU)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine init_nam_sson(USS)
subroutine read_default_surf_atm_n(CHU, DGU, USS, HPROGRAM)
subroutine init_nam_write_diag_surfn(DGU)
subroutine init_nam_diag_surf_atmn(DGU)
integer function get_current_model_index_surfex()
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)