SICOPOLIS V3.1
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
Macros
subroutines
general
calc_water_bas.F90
Go to the documentation of this file.
1
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2
!
3
! Subroutine : c a l c _ w a t e r _ b a s
4
!
5
!> @file
6
!!
7
!! Computation of the effective thickness of subglacial water.
8
!!
9
!! @section Copyright
10
!!
11
!! Copyright 2009-2013 Ralf Greve
12
!!
13
!! @section License
14
!!
15
!! This file is part of SICOPOLIS.
16
!!
17
!! SICOPOLIS is free software: you can redistribute it and/or modify
18
!! it under the terms of the GNU General Public License as published by
19
!! the Free Software Foundation, either version 3 of the License, or
20
!! (at your option) any later version.
21
!!
22
!! SICOPOLIS is distributed in the hope that it will be useful,
23
!! but WITHOUT ANY WARRANTY; without even the implied warranty of
24
!! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25
!! GNU General Public License for more details.
26
!!
27
!! You should have received a copy of the GNU General Public License
28
!! along with SICOPOLIS. If not, see <http://www.gnu.org/licenses/>.
29
!<
30
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
31
32
!-------------------------------------------------------------------------------
33
!> Computation of the effective thickness of subglacial water.
34
!<------------------------------------------------------------------------------
35
subroutine
calc_water_bas
()
36
37
use
sico_types
38
use
sico_variables
39
40
implicit none
41
integer(i4b)
:: i, j
42
43
!-------- Effective thickness of subglacial water --------
44
45
h_w = 0.0_dp
! so far no computation, just set to zero
46
47
end subroutine
calc_water_bas
48
!
Generated on Thu Sep 12 2013 09:45:13 for SICOPOLIS V3.1 by
1.8.2