7 USE yomhook
,ONLY : lhook, dr_hook
8 USE parkind1
,ONLY : jprb
14 TYPE(surfex_t),
ALLOCATABLE,
TARGET,
SAVE :: YSURF_LIST(:)
22 INTEGER,
INTENT(IN) :: kmodel
23 REAL(KIND=JPRB) :: zhook_handle
24 IF (lhook) CALL dr_hook(
"MODD_OFF_SURFEX_n:GOTO_MODEL",0,zhook_handle)
26 ysurf_cur => ysurf_list(kmodel)
27 icurrent_model = kmodel
29 IF (lhook) CALL dr_hook(
"MODD_OFF_SURFEX_n:GOTO_MODEL",1,zhook_handle)
39 INTEGER,
INTENT(IN) :: kmodel
41 REAL(KIND=JPRB) :: zhook_handle
42 IF (lhook) CALL dr_hook(
"MODD_OFF_SURFEX_n:SURFEX_ALLOC_LIST",0,zhook_handle)
46 ALLOCATE(ysurf_list(kmodel))
52 IF (lhook) CALL dr_hook(
"MODD_OFF_SURFEX_n:SURFEX_ALLOC_LIST",1,zhook_handle)
58 USE modi_surfex_deallo
61 REAL(KIND=JPRB) :: zhook_handle
62 IF (lhook) CALL dr_hook(
"MODD_OFF_SURFEX_n:SURFEX_DEALLO_LIST",0,zhook_handle)
64 DO j=1,
SIZE(ysurf_list)
68 IF (
ASSOCIATED(ysurf_cur)) nullify(ysurf_cur)
69 IF (
ALLOCATED(ysurf_list))
DEALLOCATE(ysurf_list)
71 IF (lhook) CALL dr_hook(
"MODD_OFF_SURFEX_n:SURFEX_DEALLO_LIST",1,zhook_handle)
subroutine surfex_alloc(YDSURFEX)
subroutine surfex_deallo(YDSURFEX)
subroutine surfex_deallo_list
subroutine goto_model(KMODEL)
subroutine surfex_alloc_list(KMODEL)
subroutine init_current_model_index_surfex()