declarations_waqtel.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\declarations_waqtel.f
00002 !
00029                    MODULE DECLARATIONS_WAQTEL
00030 !        **********************************************
00031 !
00032 !
00033 !***********************************************************************
00034 ! WAQTEL   V7P0                                     21/07/2014
00035 !***********************************************************************
00036 !
00037 !
00038 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00039 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00040 !
00041       USE BIEF_DEF
00042 !
00043 !       NOTE: THIS MODULE IS ORGANIZED IN 6 PARTS
00044 !
00045 !       (1) VECTORS (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
00046 !       (2) INTEGERS
00047 !       (3) LOGICAL VALUES
00048 !       (4) REALS
00049 !       (5) STRINGS
00050 !       (6) ALIASES (IF NECESSARY)
00051 !
00052 !-----------------------------------------------------------------------
00053 ! (1) VECTORS (REAL AND INTEGER)
00054 !-----------------------------------------------------------------------
00055 !
00056 !
00057 !     COEFFICIENT OF REAERATION
00058 !
00059       TYPE(BIEF_OBJ), TARGET :: K2
00060 !-----------------------------------------------------------------------
00061 !
00062 !       2) INTEGERS
00063 !
00064 !-----------------------------------------------------------------------
00065 !
00066 ! !     GRAPHIC PRINTOUT PERIOD WAQ
00067 ! !
00068 !       INTEGER LEOPRD
00069 ! !
00070 ! !     LISTING PRINTOUT PERIOD WAQ
00071 ! !
00072 !       INTEGER LISPRD
00073 ! !
00074 ! !     MAXIMUM NUMBER OF OUTPUT VARIABLES
00075 ! !
00076       INTEGER, PARAMETER :: MAXWQVAR = 50
00077 !
00078 !     WAQ PROCESS (1-O2, 2-BIOMASS, 3-EUTRO 4-MICROPOL 5-THERMIC)
00079 !
00080       INTEGER WAQPROCESS
00081 !
00082 !     NUMBER OF TRACERS ADDED WHEN USING WAQPROCESS
00083 !
00084       INTEGER    ADDTR
00085 !
00086 !     TO KNOW IF A VARIABLE WILL BE EXITED ON FILE, ON LISTING
00087 !
00088 !      LOGICAL SORLEO(MAXWQVAR),SORIMP(MAXWQVAR)
00089 !
00090 !     WAQ result FILE NUMBER
00091 !
00092       INTEGER WAQRES
00093 !
00094 !     WAQ GEOMETRY FILE NUMBER
00095 !
00096       INTEGER WAQGEO
00097 !
00098 !     WAQ HYDRODYNAMICS FILE NUMBER
00099 !
00100       INTEGER WAQHYD
00101 !
00102 !     WAQ STEERING FILE NUMBER
00103 !
00104       INTEGER WAQCAS
00105 !
00106 !     WAQ REFERENCE FILE NUMBER
00107 !
00108       INTEGER WAQREF
00109 ! !
00110 ! !     DEBUGGER
00111 ! !
00112 !       INTEGER DEBUG
00113 !
00114 !     FORMULA FOR COMPUTING K2
00115 !
00116       INTEGER FORMK2
00117 !
00118 !     FORMULA FOR COMPUTING RS
00119 !
00120       INTEGER FORMRS
00121 !
00122 !     FORMULA FOR COMPUTING CS
00123 !
00124       INTEGER FORMCS
00125 !
00126 !     COEFFICIENTS OF AERATION FORMULA
00127 !
00128       INTEGER CFORMAERA(2)
00129 !
00130 !-----------------------------------------------------------------------
00131 !
00132 !       3) LOGICAL
00133 !
00134 !-----------------------------------------------------------------------
00135 !
00136 !     IF YES, MASS-BALANCE
00137 !
00138       LOGICAL WQBILMAS
00139 !
00140 !     IF YES, VALIDATION
00141 !
00142       LOGICAL WQVALID
00143 !
00144 !     STEADY HYDRODYNAMICS
00145 !
00146       LOGICAL  PERMA
00147 !-----------------------------------------------------------------------
00148 !
00149 !       4) REALS
00150 !
00151 !-----------------------------------------------------------------------
00152 !
00153 !      WATER DENSITY
00154 !
00155        DOUBLE PRECISION ROO
00156 ! !
00157 ! !     GRAVITY ACCELERATION
00158 ! !
00159 !       DOUBLE PRECISION GRAV
00160 !
00161 !     KINEMATIC VISCOSITY
00162 !
00163       DOUBLE PRECISION VCE
00164 
00165 !     LONGITUDINAL DISPERSION
00166 !
00167       DOUBLE PRECISION LDISP
00168 !
00169 !     TRANSVERSAL DISPERSION
00170 !
00171        DOUBLE PRECISION TDISP
00172 !
00173 !    WATER QUALITY VARIABLES I0
00174 
00175       DOUBLE PRECISION I0
00176 !
00177 !     WATER QUALITY VARIABLES PCO2
00178 !
00179       DOUBLE PRECISION PCO2
00180 !
00181 !     WATER QUALITY VARIABLES PVAP
00182 !
00183       DOUBLE PRECISION PVAP
00184 !
00185 !     WATER QUALITY VARIABLES RAY3
00186 !
00187       DOUBLE PRECISION RAY3
00188 !
00189 !     WATER QUALITY VARIABLES NEBU
00190 !
00191       DOUBLE PRECISION NEBU
00192 !
00193 !     WATER QUALITY VARIABLES TAIR
00194 !
00195       DOUBLE PRECISION TAIR
00196 !
00197 !     WATER QUALITY VARIABLES NWIND (IF CONSTANT WIND IN SPACE)
00198 !
00199       DOUBLE PRECISION NWIND
00200 !
00201 !     WATER QUALITY VARIABLES C14_ATM
00202 !
00203       DOUBLE PRECISION C14_ATM
00204 !
00205 !     WATER QUALITY VARIABLES HTO_ATM
00206 !
00207       DOUBLE PRECISION HTO_ATM
00208 !
00209 !     WEIR COEFFICIENT OF REAERATION
00210 !
00211       DOUBLE PRECISION RSW
00212 
00213 !
00214 ! Water quality specific key-words
00215 !
00216 !
00217 !     EUTRO PROCESS
00218 !
00219 !
00220 !     CONSTANT OF DEGRADATION OF ORGANIC LOAD K120
00221 !
00222       DOUBLE PRECISION K120
00223 !
00224 !     CONSTANT OF NITRIFICATION KINETIC K520
00225 !
00226       DOUBLE PRECISION K520
00227 !
00228 !     O2 PRODUCED BY PHOTOSYNTHESIS (F FOR TRACER)
00229 !
00230       DOUBLE PRECISION O2PHOTO
00231 !
00232 !     O2 CONSUMED BY NITRIFICATION (N FOR TRACER)
00233 !
00234       DOUBLE PRECISION O2NITRI
00235 !
00236 !     BENTHIC DEMAND
00237 !
00238       DOUBLE PRECISION DEMBEN
00239 !
00240 !      COEFFICIENT A AND B USED IN RS FORMULA
00241 !
00242       DOUBLE PRECISION ABRS(2)
00243 !
00244 !     O2 SATURATION DENSITY OF WATER (CS)
00245 !
00246       DOUBLE PRECISION O2SATU
00247 !
00248 !     SEDIMENTATION VELOCITY OF ORGANIC PHOSPHORUS
00249 !
00250       DOUBLE PRECISION WPOR
00251 !
00252 !     SEDIMENTATION VELOCITY OF ORGANIC NITROGEN
00253 !
00254       DOUBLE PRECISION WNOR
00255 !
00256 !     MAXIMUM ALGAL GROWTH
00257 !
00258       DOUBLE PRECISION CMAX
00259 !
00260 !     SECCHI DEPTH
00261 !
00262       DOUBLE PRECISION  PS
00263 !
00264 !     COEF EXTINCTION OF RAY
00265 !
00266       DOUBLE PRECISION KPE
00267 !
00268 !     COEF VEGETAL TURBIDITY
00269 !
00270       DOUBLE PRECISION BETA
00271 !
00272 !     PARAMETER OF CALIBRATION OF SMITH FORMULA
00273 !
00274       DOUBLE PRECISION IK
00275 !
00276 !     CONSTANT OF HALF-SATURATION WITH PHOSPHATE
00277 !
00278       DOUBLE PRECISION KP
00279 !
00280 !     CONSTANT OF HALF-SATURATION WITH PHOSPHA
00281 !
00282       DOUBLE PRECISION KN
00283 !
00284 !     ALGAL COEFF OF TOXICITY (ALPHA; ALPHA2)
00285 !
00286       DOUBLE PRECISION CTOXIC(2)
00287 !
00288 !     RESPIRATION RATE OF ALGAL BIOMASS (RP)
00289 !
00290       DOUBLE PRECISION TRESPIR
00291 !
00292 !     PROPORTION OF PHOSPHORUS WITHIN PHYTO CELLS (FP)
00293 !
00294       DOUBLE PRECISION PROPHOC
00295 !
00296 !     PERCENTAGE OF PHYSPHORUS ASSIMILABLE IN DEAD PHYTO
00297 !
00298       DOUBLE PRECISION DTP
00299 !
00300 !     RATE OF TRANSFORMATION OF POR INTO PO
00301 !
00302       DOUBLE PRECISION K320
00303 !
00304 !     PROPORTION OF NITROGEN WITHIN PHYTO CELLS (FN)
00305 !
00306       DOUBLE PRECISION PRONITC
00307 !
00308 !     PERCENTAGE OF NITROGEN ASSIMILABLE IN DEAD PHYTO (DTN)
00309 !
00310       DOUBLE PRECISION PERNITS
00311 !
00312 !     RATE OF TRANSFORMATION OF NOR INTO NO3
00313 !
00314       DOUBLE PRECISION K360
00315 !
00316 !     COEF OF ALGAL MORTALITY (M1 AND M2)
00317 !
00318       DOUBLE PRECISION CMORALG(2)
00319 !
00320 !     SEDIMENTATION VELOCITY OF ORGANIC LOAD
00321 !
00322       DOUBLE PRECISION WLOR
00323 !
00324 !
00325 !     O2 PROCESS
00326 !
00327 !
00328 !     CONSTANT OF DEGRADATION OF ORGANIC LOAD K1
00329 !
00330       DOUBLE PRECISION K1
00331 !
00332 !     COEFFICIENT OF REAERATION K2 (if contant)
00333 !
00334       DOUBLE PRECISION K22
00335 !
00336 !     CONSTANT OF NITRIFICATION KINETIC K4
00337 !
00338       DOUBLE PRECISION K44
00339 !
00340 !     PHOTOSYNTHESIS P
00341 !
00342       DOUBLE PRECISION PHOTO
00343 !
00344 !     VEGATAL RESPIRATION
00345 !
00346       DOUBLE PRECISION  RESP
00347 !
00348 !     WATER TEMPERATURE
00349 !
00350       DOUBLE PRECISION WATTEMP
00351 !
00352 !
00353 !     MICROPOL PROCESS (MOSTLY COMMON WITH EUTRO)
00354 !
00355 !
00356 !     EROSION RATE
00357 !
00358       DOUBLE PRECISION ERO
00359 !
00360 !     SEDIMENTATION CRITICAL STRESS
00361 !
00362       DOUBLE PRECISION TAUR
00363 !
00364 !     CRITICAL STRESS OF RESUSPENSION
00365 !
00366       DOUBLE PRECISION TAUS
00367 !
00368 !     SEDIMENT SETTLING VELOCITY
00369 !
00370       DOUBLE PRECISION VITCHU
00371 !
00372 !     COEFF OF DISTRIBUTION (KD)
00373 !
00374       DOUBLE PRECISION CDISTRIB
00375 !
00376 !     CONSTANT OF DESORPTION KINETIC (KD)
00377 !
00378       DOUBLE PRECISION KDESORP
00379 !
00380 !
00381 !
00382 !     THERMIC PROCESS (COMMON VARIABLES WITH EWCHANGE_WITH_ATMOSPHERE MODULE)
00383 !
00384 !
00385 !     WATER SPECIFIC HEAT
00386 !
00387       DOUBLE PRECISION CP_EAU
00388 !
00389 !     AIR SPECIFIC HEAT
00390 !
00391       DOUBLE PRECISION CP_AIR
00392 !
00393 !     COEFF OF CLOUDING RATE
00394 !
00395       DOUBLE PRECISION COEF_K
00396 !
00397 !     COEFFICIENTS FOR CALIBRATING ATMOSPHERIC RADIATION
00398 !
00399       DOUBLE PRECISION EMA
00400 !
00401 !     COEFFICIENTS FOR CALIBRATING FREE SURFACE RADIATION
00402 !
00403       DOUBLE PRECISION EMI_EAU
00404 !
00405 !     BOLTZMANN CONSTANT (wM-2K-4)
00406 !
00407       DOUBLE PRECISION, PARAMETER :: BOLTZ=5.67D-8
00408 !
00409 !     COEFFICIENTS OF RAERATION FORMULA
00410 !
00411       DOUBLE PRECISION CFAER(2)
00412 !
00413 !
00414 !     MES PROCESS
00415 !
00416 !
00417 !    EXPONENETIAL DESINTEGRATION CONSTANT (LAMBD)
00418 !
00419       DOUBLE PRECISION CCSEDIM
00420 !-----------------------------------------------------------------------
00421 !
00422 !       5) STRINGS
00423 !
00424 !-----------------------------------------------------------------------
00425 !
00426 !     TITLE OF STUDY
00427 !
00428       CHARACTER(LEN=72) TITWAQCAS
00429 !
00430 !     COPY OF SUBMIT STRINGS IN THE DICTIONARY
00431 !
00432       CHARACTER(LEN=144) SUBMIT(4,300)
00433 
00434 !     MAXIMUM OF LOGICAL UNITS NUMBERS
00435 !
00436       INTEGER, PARAMETER :: MAXLU_WAQTEL = 3
00437 !
00438 !     BIEF_FILES STRUCTURES
00439 !
00440       TYPE(BIEF_FILE) :: WAQTEL_FILES(MAXLU_WAQTEL)
00441 !
00442 !
00443 
00444       SAVE
00445 !
00446       END MODULE DECLARATIONS_WAQTEL
00447 

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0