Initialisations for SICOPOLIS. More...
Go to the source code of this file.
Functions/Subroutines | |
subroutine | sico_init (delta_ts, glac_index, sum_accum, mean_accum, mean_accum_inv, dtime, dtime_temp, dtime_wss, dtime_out, dtime_ser, time, time_init, time_end, time_output, dxi, deta, dzeta_c, dzeta_t, dzeta_r, z_sl, dzsl_dtau, z_mar, ii, jj, nn, ndat2d, ndat3d, n_output, runname) |
Initialisations for SICOPOLIS. |
Initialisations for SICOPOLIS.
Copyright 2009-2013 Ralf Greve, Thorben Dunse
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 sico_init.F90.
subroutine sico_init | ( | real(dp) | delta_ts, |
real(dp) | glac_index, | ||
real(dp) | sum_accum, | ||
real(dp) | mean_accum, | ||
real(dp) | mean_accum_inv, | ||
real(dp) | dtime, | ||
real(dp) | dtime_temp, | ||
real(dp) | dtime_wss, | ||
real(dp) | dtime_out, | ||
real(dp) | dtime_ser, | ||
real(dp) | time, | ||
real(dp) | time_init, | ||
real(dp) | time_end, | ||
real(dp), dimension(100) | time_output, | ||
real(dp) | dxi, | ||
real(dp) | deta, | ||
real(dp) | dzeta_c, | ||
real(dp) | dzeta_t, | ||
real(dp) | dzeta_r, | ||
real(dp) | z_sl, | ||
real(dp) | dzsl_dtau, | ||
real(dp) | z_mar, | ||
integer(i4b), dimension((imax+1)*(jmax+1)) | ii, | ||
integer(i4b), dimension((imax+1)*(jmax+1)) | jj, | ||
integer(i4b), dimension(0:jmax,0:imax) | nn, | ||
integer(i4b) | ndat2d, | ||
integer(i4b) | ndat3d, | ||
integer(i4b) | n_output, | ||
character (len=100) | runname | ||
) |
Initialisations for SICOPOLIS.
Definition at line 35 of file sico_init.F90.