|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ################## 00002 MODULE MODD_IO_SURF_LFI 00003 ! ################## 00004 ! 00005 !!**** *MODD_IO_SURF_LFI - 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 USE MODD_SURF_PAR, ONLY : NUNDEF 00026 ! 00027 !* 0. DECLARATIONS 00028 ! 00029 IMPLICIT NONE 00030 CHARACTER(LEN=28),SAVE :: CLUOUT_LFI ! Name of the listing 00031 CHARACTER(LEN=28),SAVE :: CFILE_LFI ! Name of the current file 00032 CHARACTER(LEN=28),SAVE :: CFILEIN_LFI ! Name of the input 00033 CHARACTER(LEN=28),SAVE :: CFILEIN_LFI_SAVE ! Name of the input 00034 CHARACTER(LEN=28),SAVE :: CFILEOUT_LFI ! Name of the output 00035 CHARACTER(LEN=28),SAVE :: CFILEDIAG_LFI ! Name of the output 00036 CHARACTER(LEN=28),SAVE :: CFILEPGD_LFI ! Name of the pgd file 00037 INTEGER :: NUNIT_LFI ! logical unit of surface file (LFI part) 00038 INTEGER :: NLUOUT ! logical unit of output file 00039 ! 00040 INTEGER, DIMENSION(:), POINTER :: NMASK ! 1D mask to read only interesting 00041 !$OMP THREADPRIVATE(NMASK) 00042 CHARACTER(LEN=6) :: CMASK ! surface mask type 00043 !$OMP THREADPRIVATE(CMASK) 00044 INTEGER :: NFULL = NUNDEF ! total number fo points of surface 00045 !$OMP THREADPRIVATE(NFULL) 00046 INTEGER :: NFULL_AUX = NUNDEF ! total number fo points of surface (Auxilarry file for prep) 00047 INTEGER :: NFULL_SURF= NUNDEF ! total number fo points of surface (PGD, PREP or SURFace prognostic file) 00048 ! 00049 !* variables to insure compatibility with MesoNH and AROME files 00050 ! 00051 LOGICAL :: LMNH_COMPATIBLE = .FALSE. ! true if grid is compatible with MesoNH 00052 LOGICAL :: LCARTESIAN ! flag for cartesian grid 00053 INTEGER :: NIU = 0 ! horizontal indexes of the grid (any file, including auxilliary file in PREP) 00054 INTEGER :: NIB = NUNDEF ! horizontal indexes of the grid (any file, including auxilliary file in PREP) 00055 INTEGER :: NIE = NUNDEF ! horizontal indexes of the grid (any file, including auxilliary file in PREP) 00056 INTEGER :: NJU = 0 ! horizontal indexes of the grid (any file, including auxilliary file in PREP) 00057 INTEGER :: NJB = NUNDEF ! horizontal indexes of the grid (any file, including auxilliary file in PREP) 00058 INTEGER :: NJE = NUNDEF ! horizontal indexes of the grid (any file, including auxilliary file in PREP) 00059 INTEGER :: NIU_SURF = NUNDEF 00060 INTEGER :: NIB_SURF = NUNDEF 00061 INTEGER :: NIE_SURF = NUNDEF 00062 INTEGER :: NJU_SURF = NUNDEF 00063 INTEGER :: NJB_SURF = NUNDEF 00064 INTEGER :: NJE_SURF = NUNDEF 00065 ! horizontal indexes of the grid (PGD, PREP or SURFACE file) 00066 ! 00067 END MODULE MODD_IO_SURF_LFI
1.8.0
