|
SICOPOLIS V3.2
|
Upward shifting of the CTS. More...
Go to the source code of this file.
Functions/Subroutines | |
| subroutine | shift_cts_upward (at1, at2_1, at2_2, at3_1, at3_2, at4_1, at4_2, at5, at6, at7, atr1, am1, am2, alb1, aw1, aw2, aw3, aw4, aw5, aw7, aw8, aw9, aqtld, ai1, ai2, ai3, dzeta_t, dtime_temp, dtt_2dxi, dtt_2deta, dtime_temp_inv, i, j) |
| Upward shifting of the CTS. More... | |
Upward shifting of the CTS.
Copyright 2009-2016 Ralf Greve
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 shift_cts_upward.F90.
| subroutine shift_cts_upward | ( | real(dp), dimension(0:kcmax), intent(in) | at1, |
| real(dp), dimension(0:kcmax), intent(in) | at2_1, | ||
| real(dp), dimension(0:kcmax), intent(in) | at2_2, | ||
| real(dp), dimension(0:kcmax), intent(in) | at3_1, | ||
| real(dp), dimension(0:kcmax), intent(in) | at3_2, | ||
| real(dp), dimension(0:kcmax), intent(in) | at4_1, | ||
| real(dp), dimension(0:kcmax), intent(in) | at4_2, | ||
| real(dp), dimension(0:kcmax), intent(in) | at5, | ||
| real(dp), dimension(0:kcmax), intent(in) | at6, | ||
| real(dp), intent(in) | at7, | ||
| real(dp), intent(in) | atr1, | ||
| real(dp), intent(in) | am1, | ||
| real(dp), intent(in) | am2, | ||
| real(dp), intent(in) | alb1, | ||
| real(dp), intent(in) | aw1, | ||
| real(dp), intent(in) | aw2, | ||
| real(dp), intent(in) | aw3, | ||
| real(dp), intent(in) | aw4, | ||
| real(dp), intent(in) | aw5, | ||
| real(dp), intent(in) | aw7, | ||
| real(dp), intent(in) | aw8, | ||
| real(dp), intent(in) | aw9, | ||
| real(dp), intent(in) | aqtld, | ||
| real(dp), dimension(0:kcmax), intent(in) | ai1, | ||
| real(dp), dimension(0:kcmax), intent(in) | ai2, | ||
| real(dp), intent(in) | ai3, | ||
| real(dp), intent(in) | dzeta_t, | ||
| real(dp), intent(in) | dtime_temp, | ||
| real(dp), intent(in) | dtt_2dxi, | ||
| real(dp), intent(in) | dtt_2deta, | ||
| real(dp), intent(in) | dtime_temp_inv, | ||
| integer(i4b), intent(in) | i, | ||
| integer(i4b), intent(in) | j | ||
| ) |
Upward shifting of the CTS.
Definition at line 35 of file shift_cts_upward.F90.
1.8.5
