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_TXT
00003 !     ##################
00004 !
00005 !!****  *MODD_IO_SURF_TXT - 
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!
00011 !!**  IMPLICIT ARGUMENTS
00012 !!    ------------------
00013 !!      None 
00014 !!
00015 !!    REFERENCE
00016 !!    ---------
00017 !!
00018 !!    AUTHOR
00019 !!    ------
00020 !!      V. Masson    *Meteo France*
00021 !!
00022 !!    MODIFICATIONS
00023 !!    -------------
00024 !!    
00025 !!     P. LeMoigne 04/2004 : distinguish in and out file name
00026 !
00027 !*       0.   DECLARATIONS
00028 !
00029 IMPLICIT NONE
00030 INTEGER, DIMENSION(:), POINTER :: NMASK ! 1D mask to read only interesting
00031 !$OMP THREADPRIVATE(NMASK)
00032  CHARACTER(LEN=6)               :: CMASK ! surface mask type
00033 !$OMP THREADPRIVATE(CMASK)
00034 INTEGER                        :: NFULL ! total number for points of surface
00035 !$OMP THREADPRIVATE(NFULL)
00036 !
00037 END MODULE MODD_IO_SURF_TXT