SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/FM/modd

Go to the documentation of this file.
00001 !     ######spl
00002       MODULE MODD_FMDECLAR
00003 !     ####################
00004 !
00005 !!****  *MODD_FMDECLAR* - declaration of global variables of the FM-routines
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !       The purpose of MODD_FMDECLAR is to declare all the global variables that
00011 !     are needed by the FM-routines. It includes specific FM-software parameters
00012 !     as well as storage arrays. These arrays allow the FM-routines to keep
00013 !     in mind which logical unit is associated with which file name
00014 !     and to state whether a file was actually opened.
00015 !!
00016 !!    IMPLICIT ARGUMENTS
00017 !!    ------------------
00018 !!
00019 !!      NONE
00020 !!
00021 !!    REFERENCE
00022 !!    ---------
00023 !!
00024 !!      see the Technical Specifications Report for the Meso-nh project
00025 !!      (in French)
00026 !!
00027 !!    AUTHOR
00028 !!    ------
00029 !!
00030 !!      C. FISCHER      *METEO-FRANCE*
00031 !!
00032 !!    MODIFICATIONS
00033 !!    -------------
00034 !!
00035 !!      original                                                        06/94
00036 !!
00037 !----------------------------------------------------------------------------
00038 !
00039 !*      0.    DECLARATIONS
00040 !             ------------
00041 !
00042 IMPLICIT NONE
00043 
00044 INTEGER,PARAMETER::JPNXLU=99   ! maximum number of logical units for Fortran
00045 INTEGER,PARAMETER::JPNXFM=JPNXLU-10
00046                                ! maximum number of files opened at the same time
00047 INTEGER,PARAMETER::JPXFIE=1.5E8! maximum record length for the FM-software
00048 INTEGER,PARAMETER::JPNIIL=-999 ! default value in integer arrays
00049 INTEGER,PARAMETER::JPFINL=32   ! length of the file name strings in FM
00050 INTEGER,PARAMETER::JPXKRK=100  ! maximum length for the comment string
00051 
00052 CHARACTER(LEN=JPFINL),PARAMETER::CPUDFN='UNDEFINED_FILE_NAME'
00053 CHARACTER(LEN=JPFINL),PARAMETER::CPUNLU='UNAUTHORIZED_LOGICAL_UNIT'
00054 !
00055 !----------------------------------------------------------------------------
00056 INTEGER::NOPEFI                ! number of opened files
00057 
00058 INTEGER,DIMENSION(1:JPNXLU)::NFITYP
00059                                ! NFITYP contains the type of the FM file which
00060                                ! will be used in FMCLOS for the Unix save.
00061 
00062 CHARACTER(LEN=JPFINL),DIMENSION(1:JPNXLU)::CNAMFI
00063                                ! management array containing the names of all
00064                                ! opened files
00065 
00066 LOGICAL::LFCATT=.TRUE.         ! This logical is true at the very first call
00067                                ! to FMATTR and is then set to false.
00068 
00069 END MODULE MODD_FMDECLAR