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

Go to the documentation of this file.
00001 !     ###############
00002       MODULE MODD_AGRI
00003 !     ###############
00004 !
00005 !!****  *MODD_AGRI* - declaration of agricultural practices constants
00006 
00007 !!    PURPOSE
00008 !!    -------
00009 !       The purpose of this declarative module is to declare  the 
00010 !     typical constants for agricultural practices
00011 !
00012 !!
00013 !!**  IMPLICIT ARGUMENTS
00014 !!    ------------------
00015 !!      None 
00016 !!
00017 !!    REFERENCE
00018 !!    ---------
00019 !!          
00020 !!    AUTHOR
00021 !!    ------
00022 !!      P. LE MOIGNE *Meteo France*
00023 !!
00024 !!    MODIFICATIONS
00025 !!    -------------
00026 !!      Original    06/2006
00027 !-------------------------------------------------------------------------------
00028 !
00029 !*       0.   DECLARATIONS
00030 !             ------------
00031 !
00032 IMPLICIT NONE 
00033 !
00034 LOGICAL                             :: LAGRIP  
00035                                         ! General switch for agricultural practices
00036                                         ! (seeding and irrigation)
00037 !
00038 INTEGER, PARAMETER                  :: JPSTAGE = 4   
00039                                         ! Number of stages for Irrigation
00040 !
00041 REAL, PARAMETER, DIMENSION(JPSTAGE) :: XTHRESHOLD=(/0.70,0.55,0.40,0.25/)
00042                                         ! Threshold on f2 for irrigation
00043 !
00044 END MODULE MODD_AGRI