6 SUBROUTINE pgd_nature (DTCO, DTI, DTZ, DGU, IG, I, UG, U, USS, &
55 USE yomhook
,ONLY : lhook, dr_hook
56 USE parkind1
,ONLY : jprb
67 TYPE(isba_grid_t
),
INTENT(INOUT) :: ig
68 TYPE(isba_t
),
INTENT(INOUT) :: i
74 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
75 LOGICAL,
INTENT(IN) :: oecoclimap
76 REAL(KIND=JPRB) :: zhook_handle
88 IF (lhook) CALL dr_hook(
'PGD_NATURE',0,zhook_handle)
89 IF (u%CNATURE==
'NONE ')
THEN
90 IF (lhook) CALL dr_hook(
'PGD_NATURE',1,zhook_handle)
92 ELSE IF (u%CNATURE==
'FLUX ')
THEN
93 IF (lhook) CALL dr_hook(
'PGD_NATURE',1,zhook_handle)
95 ELSE IF (u%CNATURE==
'ISBA ' .OR. u%CNATURE==
'TSZ0')
THEN
96 CALL
pgd_isba(dtco, dti, dgu, ig, i, ug, u, uss, &
101 IF (lhook) CALL dr_hook(
'PGD_NATURE',1,zhook_handle)
subroutine pgd_nature(DTCO, DTI, DTZ, DGU, IG, I, UG, U, USS, HPROGRAM, OECOCLIMAP)
subroutine pgd_isba(DTCO, DTI, DGU, IG, I, UG, U, USS, HPROGRAM, OECOCLIMAP)
subroutine pgd_tsz0_par(DTZ, HPROGRAM)