BROWSER/out_doc80/modd__data__parameters_8F90_source.html

 !SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier

 !SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence

 !SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt

 !SFX_LIC for details. version 1.

 ! File %M% from Library %Q%

 ! Version %I% from %G% extracted: %H%

 !+ Data module for global parameters

 !-------------------------------------------------------------------------------


 MODULE modd_data_parameters


 !-------------------------------------------------------------------------------

 !

 ! Description:

 !  Global parameters for the program are defined.

 !

 ! Current Code Owner: DWD, Ulrich Schaettler

 !  phone:  +49  69  8062 2739

 !  fax:    +49  69  8236 1493

 !  email:  uschaettler@dwd.d400.de

 !

 ! History:

 ! Version    Date       Name

 ! ---------- ---------- ----

 ! 1.1        1998/03/11 Ulrich Schaettler

 !  Initial release

 ! 1.8        1998/08/03 Ulrich Schaettler

 !  Eliminated intgribf, intgribc, irealgrib, iwlength and put it to data_io.

 ! 1.10       1998/09/29 Ulrich Schaettler

 !  Eliminated parameters for grid point and diagnostic calculations.

 ! !VERSION!  !DATE!     <Your name>

 !  <Modification comments>

 !

 ! Code Description:

 ! Language: Fortran 90.

 ! Software Standards: "European Standards for Writing and

 ! Documenting Exchangeable Fortran 90 Code".

 !=======================================================================

 !

 ! Declarations:

 !

 ! Modules used:

 !=======================================================================


 IMPLICIT NONE


 !=======================================================================

 ! Global (i.e. public) Declarations:

 ! Parameters for the Program:


   INTEGER, PARAMETER       ::                                         &

          ireals    = SELECTED_REAL_KIND (12,200),                       &

                      ! number of desired significant digits for

                      ! real variables

                      ! corresponds to 8 byte real variables

          iintegers = kind(1)

                      ! kind-type parameter of the integer values

                      ! corresponds to the default integers


 !=======================================================================


 END MODULE modd_data_parameters


modd_data_parameters
Definition: modd_data_parameters.F90:10