modd_off_surfexn.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
MODULE modd_off_surfex_n
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
USE modd_surfex_n, ONLY : surfex_t
!
USE mode_modeln_surfex_handler 
!
TYPE(surfex_t), ALLOCATABLE, TARGET, SAVE :: ysurf_list(:)
TYPE(surfex_t), POINTER :: ysc => null()
!$OMP THREADPRIVATE(YSC)
!
CONTAINS
!
SUBROUTINE goto_model(KMODEL)

INTEGER, INTENT(IN) :: KMODEL
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook("MODD_OFF_SURFEX_n:GOTO_MODEL",0,zhook_handle)
!
ysc => ysurf_list(kmodel)
icurrent_model = kmodel
!
IF (lhook) CALL dr_hook("MODD_OFF_SURFEX_n:GOTO_MODEL",1,zhook_handle)
!
END SUBROUTINE goto_model
!
SUBROUTINE surfex_alloc_list(KMODEL)
!
USE modi_surfex_alloc
!
IMPLICIT NONE
!
INTEGER, INTENT(IN) :: KMODEL
INTEGER :: J
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook("MODD_OFF_SURFEX_n:SURFEX_ALLOC_LIST",0,zhook_handle)
!
 CALL init_current_model_index_surfex()
!
ALLOCATE(ysurf_list(kmodel))
!
DO j = 1,kmodel
  CALL surfex_alloc(ysurf_list(j))
ENDDO
!
IF (lhook) CALL dr_hook("MODD_OFF_SURFEX_n:SURFEX_ALLOC_LIST",1,zhook_handle)
!
END SUBROUTINE surfex_alloc_list
!
SUBROUTINE surfex_deallo_list
!
USE modi_surfex_deallo
!
INTEGER :: J
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook("MODD_OFF_SURFEX_n:SURFEX_DEALLO_LIST",0,zhook_handle)
!
DO j=1,SIZE(ysurf_list)
  CALL surfex_deallo(ysurf_list(j))
ENDDO
!
IF (ASSOCIATED(ysc)) NULLIFY(ysc)
IF (ALLOCATED(ysurf_list)) DEALLOCATE(ysurf_list)
!
IF (lhook) CALL dr_hook("MODD_OFF_SURFEX_n:SURFEX_DEALLO_LIST",1,zhook_handle)
!
END SUBROUTINE surfex_deallo_list
!
END MODULE modd_off_surfex_n