|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ################## 00002 MODULE MODD_IO_SURF_FA 00003 ! ################## 00004 ! 00005 !!**** *MODD_IO_SURF_FA - 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 ! 00026 !* 0. DECLARATIONS 00027 ! 00028 IMPLICIT NONE 00029 CHARACTER(LEN=28),SAVE :: CFILEIN_FA ='SURFIN.fa' ! Name of the input 00030 CHARACTER(LEN=28),SAVE :: CFILEIN_FA_SAVE ='SURFIN.fa' ! Name of the input 00031 CHARACTER(LEN=28),SAVE :: CFILEOUT_FA ='SURFOUT.fa' ! Name of the input 00032 CHARACTER(LEN=28),SAVE :: CFILEPGD_FA ='PGD.fa' ! Name of the pgd file 00033 INTEGER :: NUNIT_FA =19 ! logical unit of surface file (FA part) 00034 INTEGER :: NLUOUT ! logical unit of output file 00035 INTEGER :: IVERBFA=0 ! amount of message from FA lib 00036 ! 00037 LOGICAL, SAVE :: LFANOCOMPACT=.FALSE. 00038 LOGICAL, SAVE :: LPREP =.FALSE. 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 ! total number of points of surface 00045 !$OMP THREADPRIVATE(NFULL) 00046 INTEGER :: NFULL_EXT ! total number of points including the extension zone (ALADIN) 00047 INTEGER :: NDGL,NDLON,NDLUX,NDGUX ! dimensions of ALADIN domain 00048 REAL :: PERPK,PEBETA,PELON0,PELAT0, ! grid projection parameters 00049 PEDELX,PEDELY,PELON1,PELAT1 ! for the ALADIN domain 00050 ! 00051 LOGICAL :: LOPEN ! flag to know if the file has been openned during the surface call 00052 CHARACTER(LEN=6), SAVE :: CDNOMC ='header' ! Name of the header 00053 ! 00054 END MODULE MODD_IO_SURF_FA
1.8.0
