modd_off_tripn.F90

Go to the documentation of this file.

MODULE modd_off_trip_n
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
USE modd_surfex_trip_n, ONLY : trip_model_t
!
TYPE(trip_model_t), ALLOCATABLE, TARGET, SAVE :: ytrip_list(:)
TYPE(trip_model_t), POINTER :: ytrip_cur => null()
!$OMP THREADPRIVATE(YTRIP_CUR)
!
CONTAINS
!
SUBROUTINE goto_model_trip(KMODEL)

INTEGER, INTENT(IN) :: KMODEL
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook("MODD_OFF_TRIP_n:GOTO_MODEL_TRIP",0,zhook_handle)
!
ytrip_cur => ytrip_list(kmodel)
!
IF (lhook) CALL dr_hook("MODD_OFF_TRIP_n:GOTO_MODEL_TRIP",1,zhook_handle)
!
END SUBROUTINE goto_model_trip
!
SUBROUTINE trip_alloc_list(KMODEL)
!
USE modi_trip_alloc
!
IMPLICIT NONE
!
INTEGER, INTENT(IN) :: KMODEL
INTEGER :: J
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook("MODD_OFF_TRIP_n:TRIP_ALLOC_LIST",0,zhook_handle)
!
ALLOCATE(ytrip_list(kmodel))
!
DO j = 1,kmodel
  CALL trip_alloc(ytrip_list(j))
ENDDO
!
IF (lhook) CALL dr_hook("MODD_OFF_TRIP_n:TRIP_ALLOC_LIST",1,zhook_handle)
!
END SUBROUTINE trip_alloc_list
!
SUBROUTINE trip_deallo_list
!
USE modi_trip_deallo
!
INTEGER :: J
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook("MODD_OFF_TRIP_n:TRIP_DEALLO_LIST",0,zhook_handle)
!
DO j=1,SIZE(ytrip_list)
  CALL trip_deallo(ytrip_list(j))
ENDDO
!
IF (ASSOCIATED(ytrip_cur)) NULLIFY(ytrip_cur)
IF (ALLOCATED(ytrip_list)) DEALLOCATE(ytrip_list)
!
IF (lhook) CALL dr_hook("MODD_OFF_TRIP_n:TRIP_DEALLO_LIST",1,zhook_handle)
!
END SUBROUTINE trip_deallo_list
!
END MODULE modd_off_trip_n