7 hprogram,hinifile,hinifiletype,hfile,hfiletype, &
57 USE yomhook
,ONLY : lhook, dr_hook
58 USE parkind1
,ONLY : jprb
60 USE modi_zoom_pgd_isba
71 TYPE(isba_grid_t
),
INTENT(INOUT) :: ig
72 TYPE(isba_t
),
INTENT(INOUT) :: i
77 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
78 CHARACTER(LEN=28),
INTENT(IN) :: hinifile
79 CHARACTER(LEN=6),
INTENT(IN) :: hinifiletype
80 CHARACTER(LEN=28),
INTENT(IN) :: hfile
81 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
82 LOGICAL,
INTENT(IN) :: oecoclimap
83 REAL(KIND=JPRB) :: zhook_handle
90 IF (lhook) CALL dr_hook(
'ZOOM_PGD_NATURE',0,zhook_handle)
91 IF (u%CNATURE==
'NONE ')
THEN
92 IF (lhook) CALL dr_hook(
'ZOOM_PGD_NATURE',1,zhook_handle)
94 ELSE IF (u%CNATURE==
'FLUX ')
THEN
95 IF (lhook) CALL dr_hook(
'ZOOM_PGD_NATURE',1,zhook_handle)
97 ELSE IF (u%CNATURE==
'ISBA ' .OR. u%CNATURE==
'TSZ0')
THEN
99 hprogram,hinifile,hinifiletype,hfile,hfiletype,oecoclimap)
101 IF (lhook) CALL dr_hook(
'ZOOM_PGD_NATURE',1,zhook_handle)
subroutine zoom_pgd_isba(CHI, DTCO, DTI, IG, I, UG, U, USS, HPROGRAM, HINIFILE, HINIFILETYPE, HFILE, HFILETYPE, OECOCLIMAP)
subroutine zoom_pgd_nature(CHI, DTCO, DTI, IG, I, UG, U, USS, HPROGRAM, HINIFILE, HINIFILETYPE, HFILE, HFILETYPE, OECOCLIMAP)