calc_top.F90 File Reference

Computation of the topography (including gradients). More...

Go to the source code of this file.

Functions/Subroutines
subroutine	calc_top (time, time_init, z_sl, dzsl_dtau, z_mar, dtime, dxi, deta, dzeta_t, mean_accum, ii, jj, nn, itercount, iter_wss)
	Computation of the topography (including gradients).

---

Detailed Description

Computation of the topography (including gradients).

Copyright

Copyright 2009-2013 Ralf Greve, Tatsuru Sato

License

This file is part of SICOPOLIS.

SICOPOLIS is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.

SICOPOLIS is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with SICOPOLIS. If not, see http://www.gnu.org/licenses/.

Definition in file calc_top.F90.

---

Function/Subroutine Documentation

subroutine calc_top	(	real(dp), intent(in)	time,
		real(dp), intent(in)	time_init,
		real(dp), intent(in)	z_sl,
		real(dp), intent(in)	dzsl_dtau,
		real(dp), intent(in)	z_mar,
		real(dp), intent(in)	dtime,
		real(dp), intent(in)	dxi,
		real(dp), intent(in)	deta,
		real(dp), intent(in)	dzeta_t,
		real(dp), intent(in)	mean_accum,
		integer(i4b), dimension((imax+1)*(jmax+1)), intent(in)	ii,
		integer(i4b), dimension((imax+1)*(jmax+1)), intent(in)	jj,
		integer(i4b), dimension(0:jmax,0:imax), intent(in)	nn,
		integer(i4b), intent(in)	itercount,
		integer(i4b), intent(in)	iter_wss
	)

Computation of the topography (including gradients).

Definition at line 35 of file calc_top.F90.