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

Go to the documentation of this file.
00001 !     ##################
00002       MODULE MODD_IO_SURF_ASC
00003 !     ##################
00004 !
00005 !!****  *MODD_IO_SURF_ASC - 
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  CHARACTER(LEN=28),SAVE :: CFILEIN ='SURFIN.txt' ! Name of the input
00031  CHARACTER(LEN=28),SAVE :: CFILEIN_SAVE ='SURFIN.txt' ! Name of the input
00032  CHARACTER(LEN=28),SAVE :: CFILEOUT='SURFOUT.txt'! Name of the output
00033  CHARACTER(LEN=28),SAVE :: CFILEPGD     ='PGD.txt'    ! Name of the pgd file
00034 INTEGER                :: NUNIT       ! logical unit of surface file
00035 INTEGER                :: NLUOUT      ! logical unit of output file
00036 INTEGER, DIMENSION(:), POINTER :: NMASK ! 1D mask to read only interesting
00037 !$OMP THREADPRIVATE(NMASK)
00038  CHARACTER(LEN=6)               :: CMASK ! surface mask type
00039 !$OMP THREADPRIVATE(CMASK)
00040 INTEGER                        :: NFULL ! total number fo points of surface
00041 !$OMP THREADPRIVATE(NFULL)
00042 LOGICAL                 :: LOPEN_READ   ! flag to know if the file has been openned during the surface call and is to be read
00043 INTEGER                :: NNI_FORC      ! number of points in forcing files.
00044 !
00045 END MODULE MODD_IO_SURF_ASC