38 USE modi_write_diag_seaflux_n
41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
54 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
55 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
56 REAL(KIND=JPRB) :: zhook_handle
64 IF (lhook) CALL dr_hook(
'WRITE_DIAG_SEA_N',0,zhook_handle)
65 IF (u%CSEA==
'SEAFLX')
THEN
69 IF (lhook) CALL dr_hook(
'WRITE_DIAG_SEA_N',1,zhook_handle)
subroutine write_diag_sea_n(DTCO, DGU, U, SM, HPROGRAM, HWRITE)
subroutine write_diag_seaflux_n(DTCO, DGU, U, SM, HPROGRAM, HWRITE)