38 subroutine output3(time, delta_ts, glac_index, z_sl)
46 real(dp),
intent(in) :: time, delta_ts, glac_index, z_sl
49 real(dp) :: time_val, delta_ts_val, glac_index_val, z_sl_val
50 real(dp) :: h_val(0:jmax,0:imax)
52 character(len= 8) :: ch_imax
53 character(len=128) :: fmt5, fmt6
55 fmt5 =
'(/,1pe13.6,2(1pe13.4),/)'
57 write(ch_imax, fmt=
'(i8)') imax
58 write(fmt6, fmt=
'(a)')
'('//trim(adjustl(ch_imax))//
'(f8.1),f8.1)'
62 #if ( !defined(OUT_TIMES) || OUT_TIMES==1 )
63 time_val = time /year_sec
65 time_val = (time+year_zero) /year_sec
67 stop
' output3: OUT_TIMES must be either 1 or 2!'
70 delta_ts_val = delta_ts
71 glac_index_val = glac_index
78 if (forcing_flag == 1)
then
79 write(unit=13, fmt=trim(fmt5)) time_val, delta_ts_val, z_sl_val
80 else if (forcing_flag == 2)
then
81 write(unit=13, fmt=trim(fmt5)) time_val, glac_index_val, z_sl_val
82 else if (forcing_flag == 3)
then
83 write(unit=13, fmt=trim(fmt5)) time_val, 1.11e+11_dp, z_sl_val
87 write(unit=13, fmt=trim(fmt6)) (h_val(j,i), i=0,imax)
Declarations of kind types for SICOPOLIS.
subroutine output3(time, delta_ts, glac_index, z_sl)
Writing of time-series data of the ice thickness field on file in ASCII format.
Declarations of global variables for SICOPOLIS (for the ANT domain).
Declarations of global variables for SICOPOLIS.