7 hisba, kpatch,kground_layer,ksnow_layer,knbiomass, &
8 knlitter, knlittlevs, knsoilcarb)
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
58 TYPE(isba_t
),
INTENT(INOUT) :: i
60 CHARACTER(LEN=3),
INTENT(OUT) :: hisba
61 INTEGER,
INTENT(OUT) :: kpatch
62 INTEGER,
INTENT(OUT) :: kground_layer
63 INTEGER,
INTENT(OUT) :: ksnow_layer
64 INTEGER,
INTENT(OUT) :: knbiomass
65 INTEGER,
INTENT(OUT) :: knlitter
66 INTEGER,
INTENT(OUT) :: knlittlevs
67 INTEGER,
INTENT(OUT) :: knsoilcarb
68 REAL(KIND=JPRB) :: zhook_handle
76 IF (lhook) CALL dr_hook(
'GET_ISBA_CONF_N',0,zhook_handle)
79 kground_layer = i%NGROUND_LAYER
80 ksnow_layer = i%TSNOW%NLAYER
81 knbiomass = i%NNBIOMASS
83 knlittlevs = i%NNLITTLEVS
84 knsoilcarb = i%NNSOILCARB
85 IF (lhook) CALL dr_hook(
'GET_ISBA_CONF_N',1,zhook_handle)
subroutine get_isba_conf_n(I, HISBA, KPATCH, KGROUND_LAYER, KSNOW_LAYER, KNBIOMASS, KNLITTER, KNLITTLEVS, KNSOILCARB)