MAIC-2  Revision 19
 All Classes Files Functions Variables
output.F90
Go to the documentation of this file.
1 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2 !
3 ! Subroutine : o u t p u t
4 !
5 !> @file
6 !!
7 !! Data output.
8 !!
9 !! @section Copyright
10 !!
11 !! Copyright 2010-2013 Ralf Greve, Bjoern Grieger, Oliver J. Stenzel
12 !!
13 !! @section License
14 !!
15 !! This file is part of MAIC-2.
16 !!
17 !! MAIC-2 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 !! MAIC-2 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 MAIC-2. If not, see <http://www.gnu.org/licenses/>.
29 !<
30 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
31 
32 !-------------------------------------------------------------------------------
33 !> Data output.
34 !<------------------------------------------------------------------------------
35 subroutine output(time, ls)
36 
37 use maic2_types
39 
40 implicit none
41 
42 real(dp), intent(in) :: time, ls
43 
44 integer(i4b) :: l
45 
46 do l=0, lmax
47  write(12, '(es14.6,f9.3,f7.1,f10.3,5es12.3)') &
48  time/year_sec, & ! in a
49  ls*pi_180_inv, & ! in deg
50  phi_node(l)*pi_180_inv, & ! in deg
51  temp_surf(l), & ! in K
52  evap(l)*year_sec, & ! in kg/(m^2*a)
53  cond(l)*year_sec, & ! in kg/(m^2*a)
54  water(l), & ! in kg/m^2
55  a_net(l)*1.0e+03_dp*year_sec, & ! in mm ice equiv./a
56  h(l) ! in m
57 end do
58 
59 end subroutine output
60 !