SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/OFFLIN/modd_write

Go to the documentation of this file.
00001 !     ##################
00002       MODULE MODD_WRITE_BIN
00003 !     ##################
00004 !
00005 !!****  *MODD_WRITE_BIN - 
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!
00011 !!**  IMPLICIT ARGUMENTS
00012 !!    ------------------
00013 !!      None 
00014 !!
00015 !!    REFERENCE
00016 !!    ---------
00017 !!
00018 !!    AUTHOR
00019 !!    ------
00020 !!      A. LEMONSU      *Meteo France*
00021 !!
00022 !!    MODIFICATIONS
00023 !!    -------------
00024 !!    
00025 !
00026 !*       0.   DECLARATIONS
00027 !
00028 IMPLICIT NONE
00029 !      
00030 INTEGER, PARAMETER                  :: JPVAR = 400             ! maximum number of fields to write      
00031  CHARACTER(LEN=12), DIMENSION(JPVAR) :: CVAR='                ' ! names of fields to write
00032 INTEGER, DIMENSION(JPVAR)           :: NVAR                    ! unit number associated to CVAR elements
00033 INTEGER                             :: NIND                    ! current unit number
00034 INTEGER                             :: NUNIT0=33
00035 INTEGER                             :: NWRITE                  ! counter for writing
00036 !
00037 !
00038 END MODULE MODD_WRITE_BIN