My Project
mod_sed_cstms.f90
Go to the documentation of this file.
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 !/===========================================================================/
13 ! Copyright (c) 2007, The University of Massachusetts Dartmouth
14 ! Produced at the School of Marine Science & Technology
15 ! Marine Ecosystem Dynamics Modeling group
16 ! All rights reserved.
17 !
18 ! FVCOM has been developed by the joint UMASSD-WHOI research team. For
19 ! details of authorship and attribution of credit please see the FVCOM
20 ! technical manual or contact the MEDM group.
21 !
22 !
23 ! This file is part of FVCOM. For details, see http://fvcom.smast.umassd.edu
24 ! The full copyright notice is contained in the file COPYRIGHT located in the
25 ! root directory of the FVCOM code. This original header must be maintained
26 ! in all distributed versions.
27 !
28 ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
29 ! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
30 ! THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
31 ! PURPOSE ARE DISCLAIMED.
32 !
33 !/---------------------------------------------------------------------------/
34 ! CVS VERSION INFORMATION
35 ! $Id$
36 ! $Name$
37 ! $Revision$
38 !/===========================================================================/
39 
40 !=======================================================================
41 ! FVCOM Sediment Module
42 !
43 ! Copyright: 2005(c)
44 !
45 ! THIS IS A DEMONSTRATION RELEASE. THE AUTHOR(S) MAKE NO REPRESENTATION
46 ! ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY OTHER PURPOSE. IT IS
47 ! PROVIDED "AS IS" WITHOUT EXPRESSED OR IMPLIED WARRANTY.
48 !
49 ! THIS ORIGINAL HEADER MUST BE MAINTAINED IN ALL DISTRIBUTED
50 ! VERSIONS.
51 !
52 ! Contact: G. Cowles
53 ! School for Marine Science and Technology, Umass-Dartmouth
54 !
55 ! Based on the Community Sediment Transport Model (CSTM) as implemented
56 ! in ROMS by J. Warner (USGS)
57 !
58 ! Comments: Sediment Dynamics Module
59 !
60 ! Current FVCOM dependency
61 !
62 ! init_sed.F: - user defined sediment model initial conditions
63 ! mod_ncdio.F: - netcdf output includes concentration/bottom/bed fields
64 ! fvcom.F: - main calls sediment setup
65 ! internal.F: - calls sediment advance
66 !
67 ! History
68 ! Feb 7, 2008: added initialization of bottom(:,:) to 0 (w/ T. Hamada)
69 ! : fixed loop bounds in hot start and archive for conc (w/ T. Hamada)
70 ! : added comments describing theoretical bases of dynamics
71 ! Feb 14,2008: added non-constant settling velocity for cohesive sediments (w/ T. Hamada)
72 ! : updated vertical flux routine to handle non-constant vertical velocity (w/ T. Hamada)
73 ! : added a user-defined routine to calculate settling velocity based on concentration (w/ T. Hamada)
74 ! : added a user-defined routine to calculate erosion for a general case (w/ T. Hamada)
75 !
76 ! PLEASE NOTE!!!!!!!!!!!
77 ! Do NOT USE INTEL FORTRAN COMPILER VERSION 11.0 IT HAS KNOWN BUGS WHEN DEALING WITH TYPES WITH ALLOCATABLE
78 ! COMPONENTS. YOU WILL SEE WEIRD BEHAVIOR. VERSION 11.1 IS OK.
79 !
80 !
81 ! Later
82 ! 1.) Modify vertical flux routines to work with general vertical coordinate
83 ! 2.) Add divergence term for bedload transport calc
84 ! 3.) Add ripple roughness calculation
85 ! 4.) Add morphological change (bathymetry + vertical velocity condition)
86 ! 5.) Eliminate excess divisions and recalcs
87 !
88 !=======================================================================
90 
91 
92 End Module mod_sed_cstms