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

Go to the documentation of this file.
00001 !     ##################
00002 MODULE MODN_PREP_FLAKE
00003 !     ##################
00004 !
00005 !!****  *MODN_PREP_FLAKE* - declaration of namelist NAM_PREP_FLAKE
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !       The purpose of this module is to specify  the namelist NAM_PREP_FLAKE
00010 !     which concern the surface configuration.
00011 !
00012 !!
00013 !!**  IMPLICIT ARGUMENTS
00014 !!    ------------------
00015 !!
00016 !!    REFERENCE
00017 !!    ---------
00018 !!
00019 !!       
00020 !!    AUTHOR
00021 !!    ------
00022 !!      S.Malardel    *Meteo France*
00023 !!
00024 !!    MODIFICATIONS
00025 !!    -------------
00026 !!      Original    10/2003                    
00027 !-------------------------------------------------------------------------------
00028 !
00029 !*       0.   DECLARATIONS
00030 !             ------------
00031 !
00032 USE MODD_PREP_FLAKE, ONLY : CFILE_FLAKE, CTYPE, CFILEPGD_FLAKE, CTYPEPGD, &
00033                               XTS_UNIF, &
00034                               XUNIF_T_SNOW, &
00035                               XUNIF_T_ICE, &
00036                               XUNIF_T_WML, &
00037                               XUNIF_T_BOT, &
00038                               XUNIF_T_B1, &
00039                               XUNIF_CT, &
00040                               XUNIF_H_SNOW, &
00041                               XUNIF_H_ICE, &
00042                               XUNIF_H_ML, &
00043                               XUNIF_H_B1, &
00044                               LCLIM_LAKE
00045 !
00046 IMPLICIT NONE
00047 !
00048 INTEGER           :: NYEAR        ! YEAR for surface
00049 INTEGER           :: NMONTH       ! MONTH for surface
00050 INTEGER           :: NDAY         ! DAY for surface
00051 REAL              :: XTIME        ! TIME for surface
00052 LOGICAL           :: LWAT_SBL     ! flag to use air layers inside the Surface Boundary Layer
00053 !
00054 NAMELIST/NAM_PREP_FLAKE/CFILE_FLAKE, CTYPE, CFILEPGD_FLAKE, CTYPEPGD, XTS_UNIF,   &
00055                          XUNIF_T_SNOW, XUNIF_T_ICE, &
00056                          XUNIF_T_WML, &                         
00057                          XUNIF_T_BOT, XUNIF_T_B1,   &
00058                          XUNIF_CT,    &                         
00059                          XUNIF_H_SNOW, XUNIF_H_ICE,    &
00060                          XUNIF_H_ML, XUNIF_H_B1, &
00061                          LCLIM_LAKE, &                         
00062                          NYEAR, NMONTH, NDAY, XTIME, LWAT_SBL  
00063 ! Only one file is alowed, which name will be stored in CFILE_FLAKE.
00064 ! Initial conditions for all FLake variables may be present in the file.
00065 !
00066 !
00067 END MODULE MODN_PREP_FLAKE