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

Go to the documentation of this file.
00001 !     ##################
00002       MODULE MODD_IO_SURF_BIN
00003 !     ##################
00004 !
00005 !!****  *MODD_IO_SURF_BIN - 
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 !
00026 !*       0.   DECLARATIONS
00027 !
00028 IMPLICIT NONE
00029 INTEGER, DIMENSION(:), POINTER :: NMASK                   ! 1D mask to read only interesting
00030 !$OMP THREADPRIVATE(NMASK)
00031  CHARACTER(LEN=6)               :: CMASK                   ! surface mask type
00032 !$OMP THREADPRIVATE(CMASK)
00033  CHARACTER(LEN=28),SAVE         :: CFILEIN  ='SURFIN.txt'  ! Name of the input
00034  CHARACTER(LEN=28),SAVE         :: CFILEOUT ='SURFOUT.txt' ! Name of the input
00035 INTEGER                        :: NFULL                   ! total number for points of surface
00036 !$OMP THREADPRIVATE(NFULL)
00037 INTEGER                        :: NUNIT                   ! logical unit of surface file
00038 INTEGER                        :: NLUOUT                  ! logical unit of output file
00039 !
00040 END MODULE MODD_IO_SURF_BIN