SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/init_io_surf

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE INIT_IO_SURF_MASK_n(HMASK,KSIZE,KLUOUT,KFULL,KMASK)
00003 !     ######################
00004 !
00005 !!****  *INIT_IO_SURF_MASK* Keep in memory the output files
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!
00011 !!**  IMPLICIT ARGUMENTS
00012 !!    ------------------
00013 !!      None 
00014 !!
00015 !!    REFERENCE
00016 !!    ---------
00017 !!
00018 !!    AUTHOR
00019 !!    ------
00020 !!      S. Faroux   *Meteo France*
00021 !!
00022 !!    MODIFICATIONS
00023 !!    -------------
00024 !!
00025 !*       0.   DECLARATIONS
00026 !             ------------
00027 !
00028 USE MODD_MASK, ONLY: NMASK_FULL
00029 !
00030 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00031 USE PARKIND1  ,ONLY : JPRB
00032 !
00033 USE MODI_GET_SURF_MASK_n
00034 !
00035 IMPLICIT NONE
00036 !
00037  CHARACTER(LEN=6),  INTENT(IN) :: HMASK
00038 INTEGER,           INTENT(IN) :: KSIZE
00039 INTEGER,           INTENT(IN) :: KLUOUT
00040 INTEGER,           INTENT(INOUT) :: KFULL
00041 INTEGER, POINTER, DIMENSION(:):: KMASK
00042 !
00043 INTEGER, DIMENSION(KSIZE)     :: IMASK
00044 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00045 !
00046 IF (LHOOK) CALL DR_HOOK('INIT_IO_SURF_MASK_N',0,ZHOOK_HANDLE)
00047 !
00048  CALL GET_SURF_MASK_n(HMASK,KSIZE,IMASK,KFULL,KLUOUT)
00049 !
00050 IF (.NOT.ALLOCATED(NMASK_FULL)) ALLOCATE(NMASK_FULL(KFULL))
00051 !
00052 NMASK_FULL(:)=0
00053 !
00054 KMASK => NMASK_FULL(1:KSIZE)
00055 KMASK(:) =  IMASK(:)
00056 !
00057 IF (LHOOK) CALL DR_HOOK('INIT_IO_SURF_MASK_N',1,ZHOOK_HANDLE)
00058 !
00059 END SUBROUTINE INIT_IO_SURF_MASK_n