56 USE modi_get_default_nam_n
59 USE yomhook
,ONLY : lhook, dr_hook
60 USE parkind1
,ONLY : jprb
72 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
79 REAL(KIND=JPRB) :: zhook_handle
83 IF (lhook) CALL dr_hook(
'WRITESURF_ATM_CONF_N',0,zhook_handle)
86 IF (iludes==0 .AND. lhook) CALL dr_hook(
'WRITESURF_ATM_CONF_N',1,zhook_handle)
98 WRITE(unit=iludes,nml=nam_sson)
99 WRITE(unit=iludes,nml=nam_ch_controln)
100 WRITE(unit=iludes,nml=nam_ch_surfn)
101 WRITE(unit=iludes,nml=nam_diag_surf_atmn)
102 WRITE(unit=iludes,nml=nam_diag_surfn)
103 WRITE(unit=iludes,nml=nam_write_diag_surfn)
104 WRITE(unit=iludes,nml=nam_chs_orilam)
105 WRITE(unit=iludes,nml=nam_surf_atm)
106 WRITE(unit=iludes,nml=nam_write_surf_atm)
107 IF (lhook) CALL dr_hook(
'WRITESURF_ATM_CONF_N',1,zhook_handle)
subroutine init_nam_ch_controln(CHI)
subroutine init_nam_diag_surfn(DGF)
subroutine init_nam_ch_surfn(CHU)
subroutine init_nam_sson(USS)
subroutine init_nam_write_diag_surfn(DGU)
subroutine writesurf_atm_conf_n(CHU, DGU, USS, HPROGRAM)
subroutine init_nam_diag_surf_atmn(DGU)
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)