|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ################ 00002 MODULE MODD_PREP_FLAKE 00003 ! ################ 00004 ! 00005 !!**** *MODD_PREP_FLAKE - declaration for field interpolations 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 ! Declaration of surface parameters 00010 ! 00011 !! 00012 !!** IMPLICIT ARGUMENTS 00013 !! ------------------ 00014 !! None 00015 !! 00016 !! REFERENCE 00017 !! --------- 00018 !! 00019 !! AUTHOR 00020 !! ------ 00021 !! S.Malardel *Meteo France* 00022 !! 00023 !! MODIFICATIONS 00024 !! ------------- 00025 !! Original 10/03 00026 ! 00027 !* 0. DECLARATIONS 00028 ! ------------ 00029 ! 00030 IMPLICIT NONE 00031 ! 00032 SAVE 00033 !-------------------------------------------------------------------------- 00034 ! 00035 CHARACTER(LEN=28) :: CFILE_FLAKE ! input file name 00036 CHARACTER(LEN=6) :: CTYPE ! input file type 00037 CHARACTER(LEN=28) :: CFILEPGD_FLAKE ! input file name 00038 CHARACTER(LEN=6) :: CTYPEPGD ! input file type 00039 ! 00040 REAL :: XTS_UNIF ! uniform prescribed 00041 ! surface temperature for inland water 00042 ! Uniform prescribed of FLake variables: 00043 REAL :: XUNIF_T_SNOW 00044 REAL :: XUNIF_T_ICE 00045 REAL :: XUNIF_T_MNW 00046 REAL :: XUNIF_T_WML 00047 REAL :: XUNIF_T_BOT 00048 REAL :: XUNIF_T_B1 00049 REAL :: XUNIF_CT 00050 REAL :: XUNIF_H_SNOW 00051 REAL :: XUNIF_H_ICE 00052 REAL :: XUNIF_H_ML 00053 REAL :: XUNIF_H_B1 00054 ! 00055 LOGICAL :: LCLIM_LAKE ! Do we want to use lake climate data? T if yes. 00056 ! 00057 !-------------------------------------------------------------------------- 00058 ! 00059 END MODULE MODD_PREP_FLAKE 00060 00061
1.8.0
