41 USE modi_write_diag_isba_n
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
55 TYPE(isba_model_t
),
INTENT(INOUT) :: im
56 TYPE(dst_t),
INTENT(INOUT) :: dst
58 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
59 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
60 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'WRITE_DIAG_NATURE_N',0,zhook_handle)
69 IF (u%CNATURE==
'ISBA ')
THEN
73 IF (lhook) CALL dr_hook(
'WRITE_DIAG_NATURE_N',1,zhook_handle)
subroutine write_diag_nature_n(DTCO, DGU, U, IM, DST, HPROGRAM, HWRITE)
subroutine write_diag_isba_n(DTCO, DGU, U, IM, DST, HPROGRAM, HWRITE)