Skip to content
Snippets Groups Projects
modd_fmout.f90 1.81 KiB
Newer Older
  • Learn to ignore specific revisions
  • !MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
    
    !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
    
    !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
    
    !MNH_LIC for details. version 1.
    
    !-----------------------------------------------------------------
    !--------------- special set of characters for RCS information
    !-----------------------------------------------------------------
    ! $Source$ $Revision$
    ! MASDEV4_7 modd 2006/05/18 13:07:25
    !-----------------------------------------------------------------
    !     #################
          MODULE MODD_FMOUT
    !     #################
    !
    !!****  *MODD_FMOUT* - declaration of informations on the instants for the 
    !!      outputs of all models
    !!
    !!    PURPOSE
    !!    -------
    !       The purpose of this  module is to declare the instants for the outputs 
    !!     realized by all models.         
    !       Introduced to facilitate the output FM-file managment in case of nesting
    !     
    !!**  IMPLICIT ARGUMENTS
    !!    ------------------
    !!
    !!      Module MODD_PARAMETERS  :
    !!         JPMODELMAX : Maximum allowed  number of nested models
    !!
    !!    REFERENCE
    !!    ---------
    !!      Book2 of Meso-NH documentation (module MODD_FMOUT)
    !!          
    !!    AUTHOR
    !!    ------
    !!	J.P. Lafore      *Meteo France*
    !!
    !!    MODIFICATIONS
    !!    -------------
    !!      Original    26/07/96                     
    !-------------------------------------------------------------------------------
    !
    !*       0.   DECLARATIONS
    !             ------------
    !
    USE MODD_PARAMETERS
    !
    IMPLICIT NONE
    !
    
    WAUTELET Philippe's avatar
    WAUTELET Philippe committed
    REAL,SAVE,ALLOCATABLE,DIMENSION(:,:)  ::   XBAK_TIME 
    
    ! XBAK_TIME(m,i) array of 
    
    ! the increments in seconds from the beginning of the segment to the
    ! instant where the i-th fields output on FM-files is realized by model "m"
    !
    !
    END MODULE MODD_FMOUT