56 USE modi_get_default_nam_n
59 USE yomhook
,ONLY : lhook, dr_hook
60 USE parkind1
,ONLY : jprb
71 TYPE(ocean_t),
INTENT(INOUT) :: o
74 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
81 REAL(KIND=JPRB) :: zhook_handle
85 IF (lhook) CALL dr_hook(
'WRITESURF_SEAFLUX_CONF_N',0,zhook_handle)
88 IF (iludes==0 .AND. lhook) CALL dr_hook(
'WRITESURF_SEAFLUX_CONF_N',1,zhook_handle)
98 WRITE(unit=iludes,nml=nam_seafluxn)
99 WRITE(unit=iludes,nml=nam_ch_seafluxn)
100 WRITE(unit=iludes,nml=nam_diag_oceann)
101 WRITE(unit=iludes,nml=nam_seaicen)
102 WRITE(unit=iludes,nml=nam_surf_slt)
103 IF (lhook) CALL dr_hook(
'WRITESURF_SEAFLUX_CONF_N',1,zhook_handle)
subroutine writesurf_seaflux_conf_n(CHS, DGO, DGSI, O, S, HPROGRAM)
subroutine init_nam_ch_seafluxn(CHS)
subroutine init_nam_seaicen(DGSI, S)
subroutine init_nam_diag_oceann(DGO)
subroutine init_nam_seafluxn(O, S)
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)