init_io_surf_maskn.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.
!     #########
      SUBROUTINE init_io_surf_mask_n (DTCO, U, &
                                      hmask,ksize,kluout,kfull,kmask)
!     ######################
!
!!****  *INIT_IO_SURF_MASK* Keep in memory the output files
!!
!!    PURPOSE
!!    -------
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      S. Faroux   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!
!*       0.   DECLARATIONS
!             ------------
!
!
!
USE modd_data_cover_n, ONLY : data_cover_t
USE modd_surf_atm_n, ONLY : surf_atm_t
!
USE modd_mask, ONLY: nmask_full
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
USE modi_get_surf_mask_n
!
IMPLICIT NONE
!
!
TYPE(data_cover_t), INTENT(INOUT) :: dtco
TYPE(surf_atm_t), INTENT(INOUT) :: u
!
 CHARACTER(LEN=6),  INTENT(IN) :: hmask
INTEGER,           INTENT(IN) :: ksize
INTEGER,           INTENT(IN) :: kluout
INTEGER,           INTENT(INOUT) :: kfull
INTEGER, POINTER, DIMENSION(:):: kmask
!
INTEGER, DIMENSION(KSIZE)     :: imask
REAL(KIND=JPRB) :: zhook_handle
!
IF (lhook) CALL dr_hook('INIT_IO_SURF_MASK_N',0,zhook_handle)
!
 CALL get_surf_mask_n(dtco, u, &
                      hmask,ksize,imask,kfull,kluout)
!
IF (ALLOCATED(nmask_full)) THEN
  IF (ksize>SIZE(nmask_full)) DEALLOCATE(nmask_full)
ENDIF
IF (.NOT.ALLOCATED(nmask_full)) ALLOCATE(nmask_full(kfull))
!
nmask_full(1:ksize)=imask(:)
!
kmask => nmask_full(1:ksize)
!
IF (lhook) CALL dr_hook('INIT_IO_SURF_MASK_N',1,zhook_handle)
!
END SUBROUTINE init_io_surf_mask_n