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

Go to the documentation of this file.
00001 !     ##################
00002       MODULE MODN_PREP_ISBA
00003 !     ##################
00004 !
00005 !!****  *MODN_PREP_ISBA* - declaration of namelist NAM_PREP_ISBA
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !       The purpose of this module is to specify  the namelist NAM_PREP_ISBA
00010 !
00011 !!
00012 !!**  IMPLICIT ARGUMENTS
00013 !!    ------------------
00014 !!
00015 !!    REFERENCE
00016 !!    ---------
00017 !!
00018 !!       
00019 !!    AUTHOR
00020 !!    ------
00021 !!      V. Masson    *Meteo France*
00022 !!
00023 !!    MODIFICATIONS
00024 !!    -------------
00025 !!      Original    01/2004                   
00026 !-------------------------------------------------------------------------------
00027 !
00028 !*       0.   DECLARATIONS
00029 !             ------------
00030 !
00031 USE MODD_PREP_ISBA,  ONLY : CFILE_ISBA, CTYPE, CFILEPGD_ISBA, CTYPEPGD,       &
00032                               CFILE_HUG, CTYPE_HUG,                           &
00033                               CFILE_HUG_SURF, CFILE_HUG_ROOT, CFILE_HUG_DEEP, &
00034                               XHUG_SURF, XHUG_ROOT, XHUG_DEEP,                 &
00035                               XHUGI_SURF, XHUGI_ROOT, XHUGI_DEEP,              &
00036                               CFILE_TG, CTYPE_TG,                             &
00037                               CFILE_TG_SURF, CFILE_TG_ROOT, CFILE_TG_DEEP,    &
00038                               XTG_SURF, XTG_ROOT, XTG_DEEP  
00039 
00040 !
00041 IMPLICIT NONE
00042 INTEGER           :: NYEAR        ! YEAR for surface
00043 INTEGER           :: NMONTH       ! MONTH for surface
00044 INTEGER           :: NDAY         ! DAY for surface
00045 REAL              :: XTIME        ! TIME for surface
00046 LOGICAL           :: LISBA_CANOPY !flag to use air layers inside the canopy
00047 !
00048 NAMELIST/NAM_PREP_ISBA/CFILE_ISBA, CTYPE, CFILEPGD_ISBA, CTYPEPGD,       &
00049                          CFILE_HUG, CTYPE_HUG,                           &
00050                          CFILE_HUG_SURF, CFILE_HUG_ROOT, CFILE_HUG_DEEP, &
00051                          XHUG_SURF, XHUG_ROOT, XHUG_DEEP,                &
00052                          XHUGI_SURF, XHUGI_ROOT, XHUGI_DEEP,             &
00053                          CFILE_TG, CTYPE_TG,                              &
00054                          CFILE_TG_SURF, CFILE_TG_ROOT, CFILE_TG_DEEP,    &
00055                          XTG_SURF, XTG_ROOT, XTG_DEEP,                   &
00056                          NYEAR, NMONTH, NDAY, XTIME, LISBA_CANOPY  
00057 !
00058 END MODULE MODN_PREP_ISBA