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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE INIT_IO_SURF_BIN_n(HMASK,HACTION)
00003 !     ######################
00004 !
00005 !!****  *INIT_IO_SURF_BIN_n* 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 !!      A. Lemonsu  *Meteo France*
00021 !!
00022 !!    MODIFICATIONS
00023 !!    -------------
00024 !
00025 !*       0.   DECLARATIONS
00026 !             ------------
00027 !
00028 USE MODD_IO_SURF_BIN, ONLY : NMASK, NFULL, CMASK
00029 !
00030 USE MODI_GET_LUOUT
00031 USE MODI_GET_DIM_FULL_n
00032 USE MODI_GET_SIZE_FULL_n
00033 USE MODI_GET_TYPE_DIM_n
00034 USE MODI_INIT_IO_SURF_MASK_n
00035 !
00036 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00037 USE PARKIND1  ,ONLY : JPRB
00038 !
00039 !
00040 IMPLICIT NONE
00041 !
00042  CHARACTER(LEN=6),  INTENT(IN)  :: HMASK    
00043  CHARACTER(LEN=5),  INTENT(IN)  :: HACTION    
00044 !
00045 INTEGER                        :: ILU, IRET, IL, ILUOUT
00046 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00047 !------------------------------------------------------------------------------
00048 IF (LHOOK) CALL DR_HOOK('INIT_IO_SURF_BIN_N',0,ZHOOK_HANDLE)
00049 !
00050  CALL GET_LUOUT('BINARY',ILUOUT)
00051 !
00052  CALL GET_DIM_FULL_n(NFULL)
00053 !
00054  CALL GET_SIZE_FULL_n('BINARY ',NFULL,ILU)
00055 !
00056 IL = ILU
00057  CALL GET_TYPE_DIM_n(HMASK,IL)
00058  CALL INIT_IO_SURF_MASK_n(HMASK, IL, ILUOUT, ILU, NMASK)
00059 !
00060 CMASK = HMASK
00061 IF (LHOOK) CALL DR_HOOK('INIT_IO_SURF_BIN_N',1,ZHOOK_HANDLE)
00062 !------------------------------------------------------------------------------
00063 END SUBROUTINE INIT_IO_SURF_BIN_n