40 USE modi_write_diag_seb_watflux_n
43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
56 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
57 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
58 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'WRITE_DIAG_WATFLUX_N',0,zhook_handle)
66 IF (hwrite/=
'PGD')
THEN
68 IF (wm%DGW%XDIAG_TSTEP==xundef .OR. &
69 abs(nint(wm%W%TTIME%TIME/wm%DGW%XDIAG_TSTEP)*wm%DGW%XDIAG_TSTEP-wm%W%TTIME%TIME)<1.e-3 )
THEN
75 IF (lhook) CALL dr_hook(
'WRITE_DIAG_WATFLUX_N',1,zhook_handle)
subroutine write_diag_watflux_n(DTCO, DGU, U, WM, HPROGRAM, HWRITE)
subroutine write_diag_seb_watflux_n(DTCO, DGU, U, CHW, DGW, HPROGRAM)