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_OL
00003 !     ######################
00004 !
00005 !!****  *MODD_IO_SURF_OL* Keep in memory the netcdf ID of the output files
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!
00011 !!**  IMPLICIT ARGUMENTS
00012 !!    ------------------
00013 !!      None 
00014 !!
00015 !!    REFERENCE
00016 !!    ---------
00017 !!
00018 !!    AUTHOR
00019 !!    ------
00020 !!      F. Habets   *Meteo France*
00021 !!
00022 !!    MODIFICATIONS
00023 !!    -------------
00024 !!      modified 04/04 by P. LeMoigne: add logical for town, sea and water
00025 !!      modified 07/11 by B. Decharme: add mask for IGN grid
00026 !
00027 !*       0.   DECLARATIONS
00028 !             ------------
00029 !
00030 !
00031 IMPLICIT NONE
00032 !------------------------------------------------------------------------------
00033 !
00034 !* variables for each patch
00035 !
00036 INTEGER, DIMENSION(:),POINTER :: NMASK
00037 !$OMP THREADPRIVATE(NMASK)
00038 INTEGER                       :: NSTEP_OUTPUT
00039 LOGICAL                       :: LMASK = .FALSE.
00040 LOGICAL                       :: LPARTR,LPARTW
00041 LOGICAL                       :: LDEFINED_NATURE
00042 LOGICAL                       :: LDEFINED_SEA
00043 LOGICAL                       :: LDEFINED_WATER
00044 LOGICAL                       :: LDEFINED_TOWN
00045 LOGICAL                       :: LDEFINED_SURF_ATM
00046 LOGICAL,DIMENSION(5)          :: LTIME_WRITTEN
00047 INTEGER                       :: XTYPE
00048 INTEGER                       :: XSTART,XCOUNT,XSTRIDE
00049 INTEGER                       :: XSTARTW,XCOUNTW
00050 
00051 INTEGER, DIMENSION(:),ALLOCATABLE :: NMASK_IGN
00052 
00053 !------------------------------------------------------------------------------
00054 !
00055 END MODULE MODD_IO_SURF_OL
00056