|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 !------------------------------------------------------------------------------- 00002 ! ################## 00003 MODULE MODD_TOPODYN 00004 ! ################## 00005 ! 00006 !!**** *MODD_TOPODYN - declaration of variables used by Topodyn 00007 !! 00008 !! PURPOSE 00009 !! ------- 00010 ! 00011 !! 00012 !!** IMPLICIT ARGUMENTS 00013 !! ------------------ 00014 !! None 00015 !! 00016 !! REFERENCE 00017 !! --------- 00018 !! 00019 !! AUTHOR 00020 !! ------ 00021 !! F. Habets and K. Chancibault 00022 !! 00023 !! MODIFICATIONS 00024 !! ------------- 00025 !! Original 29/09/03 00026 !! BV: modifications 2006: division in two part (some variables are 00027 ! now in modd_coupling_topo_n 00028 !! BV: modifications 04/2007: addition of XTOPD_STEP and NNB_TOPD_STEP 00029 ! 00030 !* 0. DECLARATIONS 00031 ! ------------ 00032 ! 00033 USE MODD_TOPD_PAR, ONLY : JPCAT 00034 ! 00035 IMPLICIT NONE 00036 ! 00037 !------------------------------------------------------------------------------- 00038 ! Variables specific to Topodyn 00039 ! 00040 CHARACTER(LEN=15), DIMENSION(JPCAT) :: CCAT ! base name for topographic files 00041 INTEGER :: NNCAT ! catchments number 00042 ! 00043 INTEGER :: NNB_TOPD_STEP ! number of TOPODYN time steps 00044 REAL :: XTOPD_STEP ! TOPODYN time step 00045 ! 00046 INTEGER :: NMESHT ! maximal number of catchments meshes 00047 00048 REAL, ALLOCATABLE, DIMENSION(:,:) :: XDMAXT ! maximal deficit on TOPODYN grid (m) 00049 REAL, ALLOCATABLE, DIMENSION(:) :: XDXT ! catchment grid mesh size (m) 00050 REAL, ALLOCATABLE, DIMENSION(:) :: XMPARA ! M parameter on TOPODYN grid (m) 00051 00052 INTEGER, ALLOCATABLE, DIMENSION(:) :: NNMC ! catchments pixels number 00053 REAL, ALLOCATABLE, DIMENSION(:,:,:) :: XCONN ! pixels reference number and 00054 ! connections between 00055 INTEGER, ALLOCATABLE, DIMENSION(:,:):: NLINE ! second index of the pixel in the array 00056 ! XCONN 00057 REAL, ALLOCATABLE, DIMENSION(:,:) :: XTANB ! pixels topographic slope (Tan(Beta)) 00058 REAL, ALLOCATABLE, DIMENSION(:,:) :: XSLOP ! pixels topographic slope/length flow 00059 00060 !Variables à priori inutiles 00061 REAL, ALLOCATABLE, DIMENSION(:,:) :: XDAREA ! drainage area (aire drainee) 00062 00063 ! Variables defining the catchments 00064 00065 INTEGER, ALLOCATABLE, DIMENSION(:) :: NNXC ! number of topographic grid points on 00066 ! abscissa axis 00067 INTEGER, ALLOCATABLE, DIMENSION(:) :: NNYC ! number of topographic grid points on ordinate 00068 ! axis 00069 INTEGER, ALLOCATABLE, DIMENSION(:) :: NNPT ! number of pixels in the topographic 00070 ! domain 00071 INTEGER :: NPMAX ! maximal number of pixels in the 00072 ! topographic grid 00073 00074 REAL, ALLOCATABLE, DIMENSION(:) :: XX0,XY0 ! coordinates bottom-left pixel of each 00075 ! topographic domain 00076 00077 REAL, ALLOCATABLE, DIMENSION(:) :: XNUL ! undefined value in topographic files 00078 00079 REAL, ALLOCATABLE, DIMENSION(:,:) :: XTOPD ! topographic values in topographic files 00080 REAL, DIMENSION(JPCAT) :: XRTOP_D2 ! depth used by topodyn for lateral transfers 00081 ! (expressed in ratio of isba d2) 00082 ! 00083 ! Variables used in routing module 00084 INTEGER, ALLOCATABLE, DIMENSION(:) :: NNISO ! number of time step for the isochrones 00085 REAL, ALLOCATABLE, DIMENSION(:,:) :: XCISO ! isochrones routing constants 00086 00087 REAL, DIMENSION(JPCAT) :: XQINIT ! Initial discharge at the outlet of the catchments 00088 REAL, ALLOCATABLE, DIMENSION(:,:) :: XQTOT ! Total discharge at the outlet of the catchments 00089 00090 REAL, DIMENSION(JPCAT) :: XSPEEDR,XSPEEDH ! River and hillslope speed 00091 REAL, DIMENSION(JPCAT) :: XSPEEDG ! Ground speed 00092 REAL, ALLOCATABLE, DIMENSION(:,:) :: XDRIV, XDHIL ! River and hillslope distances 00093 REAL, ALLOCATABLE, DIMENSION(:,:) :: XDGRD ! Ground distance 00094 REAL, ALLOCATABLE, DIMENSION(:,:) :: XTIME_TOPD ! Time to go to the outlet 00095 ! at the soil surface 00096 REAL, ALLOCATABLE, DIMENSION(:,:) :: XTIME_TOPD_DRAIN! Time to go to the outlet in the ground 00097 00098 INTEGER, ALLOCATABLE, DIMENSION(:) :: NX_STEP_ROUT ! number of maximal time step to join the outlet of 00099 ! any catchment 00100 00101 ! Variables used in exfiltration module 00102 REAL, ALLOCATABLE, DIMENSION(:,:) :: XLAMBDA ! pure topographic index 00103 REAL, ALLOCATABLE, DIMENSION(:,:) :: XCSTOPT ! hydraulic conductivity at saturation on 00104 ! TOP-LAT grid 00105 !ludo 00106 REAL, ALLOCATABLE, DIMENSION(:,:) :: XQB_DR 00107 REAL, ALLOCATABLE, DIMENSION(:,:) :: XQB_RUN 00108 ! for topodyn alone 00109 REAL, ALLOCATABLE, DIMENSION(:) :: XRI,XRI_PREV! recharge on ISBA grid 00110 REAL, ALLOCATABLE, DIMENSION(:) :: XSRFULL! reservoir of interception for 00111 !TOPODYN only 00112 REAL, ALLOCATABLE, DIMENSION(:,:) :: XDEFT! pixel deficit 00113 ! 00114 !------------------------------------------------------------------------------------- 00115 ! 00116 END MODULE MODD_TOPODYN 00117
1.8.0
