7 hprogram,hwrite,oland_use)
51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
63 TYPE(isba_model_t
),
INTENT(INOUT) :: im
64 TYPE(dst_t),
INTENT(INOUT) :: dst
66 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
67 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
69 LOGICAL,
INTENT(IN) :: oland_use
74 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'WRITE_NATURE_N',0,zhook_handle)
81 IF (u%CNATURE==
'ISBA' .OR. u%CNATURE==
'TSZ0')
THEN
83 hprogram,hwrite,oland_use)
85 IF (lhook) CALL dr_hook(
'WRITE_NATURE_N',1,zhook_handle)
subroutine write_isba_n(DTCO, DGU, U, IM, DST, HPROGRAM, HWRITE, OLAND_USE)
subroutine write_nature_n(DTCO, DGU, U, IM, DST, HPROGRAM, HWRITE, OLAND_USE)