40 USE modi_write_diag_seb_seaflux_n
41 USE modi_write_diag_seb_ocean_n
42 USE modi_write_diag_seb_seaice_n
45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
58 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
59 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
60 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
'WRITE_DIAG_SEAFLUX_N',0,zhook_handle)
68 IF (hwrite/=
'PGD')
THEN
70 IF (sm%DGS%XDIAG_TSTEP==xundef .OR. &
71 abs(nint(sm%S%TTIME%TIME/sm%DGS%XDIAG_TSTEP)*sm%DGS%XDIAG_TSTEP-sm%S%TTIME%TIME)<1.e-3 )
THEN
81 IF (lhook) CALL dr_hook(
'WRITE_DIAG_SEAFLUX_N',1,zhook_handle)
subroutine write_diag_seb_ocean_n(DTCO, DGU, U, DGO, HPROGRAM)
subroutine write_diag_seaflux_n(DTCO, DGU, U, SM, HPROGRAM, HWRITE)
subroutine write_diag_seb_seaflux_n(DTCO, DGU, U, CHS, DGS, S, HPROGRAM)
subroutine write_diag_seb_seaice_n(DTCO, DGU, U, DGS, DGSI, S, HPROGRAM)