7 USE yomhook
,ONLY : lhook, dr_hook
8 USE parkind1
,ONLY : jprb
12 INTEGER :: ICURRENT_MODEL = -1
19 REAL(KIND=JPRB) :: zhook_handle
21 IF (lhook) CALL dr_hook(
'MODE_MODELN_SURFEX_HANDLER:INIT_CURRENT_MODEL_INDEX_SURFEX',0,zhook_handle)
23 IF (lhook) CALL dr_hook(
'MODE_MODELN_SURFEX_HANDLER:INIT_CURRENT_MODEL_INDEX_SURFEX',1,zhook_handle)
29 REAL(KIND=JPRB) :: zhook_handle
31 IF (lhook) CALL dr_hook(
'MODE_MODELN_SURFEX_HANDLER:GET_CURRENT_MODEL_INDEX_SURFEX',0,zhook_handle)
33 IF (lhook) CALL dr_hook(
'MODE_MODELN_SURFEX_HANDLER:GET_CURRENT_MODEL_INDEX_SURFEX',1,zhook_handle)
subroutine init_current_model_index_surfex()
integer function get_current_model_index_surfex()