50 USE modi_write_pgd_isba_n
53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
67 TYPE(isba_grid_t
),
INTENT(INOUT) :: ig
68 TYPE(isba_t
),
INTENT(INOUT) :: i
70 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
71 REAL(KIND=JPRB) :: zhook_handle
82 IF (lhook) CALL dr_hook(
'WRITE_PGD_NATURE_N',0,zhook_handle)
83 IF (u%CNATURE==
'ISBA' .OR. u%CNATURE==
'TSZ0')
THEN
87 IF (lhook) CALL dr_hook(
'WRITE_PGD_NATURE_N',1,zhook_handle)
subroutine write_pgd_isba_n(DTCO, DGU, U, DTI, DTZ, IG, I, HPROGRAM)
subroutine write_pgd_nature_n(DTCO, DGU, U, DTI, DTZ, IG, I, HPROGRAM)