Ignore:
Timestamp:
Apr 16, 2009 12:07:26 PM (12 years ago)
Author:
raasch
Message:

changes for coupling with independent precursor runs; z_i calculation with Sullivan criterion

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/data_output_2d.f90

    r274 r291  
    44! Current revisions:
    55! -----------------
     6! simulated_time in NetCDF output replaced by time_since_reference_point.
    67! Output of NetCDF messages with aid of message handling routine.
    78! Output of messages replaced by message handling routine.
     
    567568                            nc_stat = NF90_PUT_VAR( id_set_xy(av),             &
    568569                                                    id_var_time_xy(av),        &
    569                                                     (/ simulated_time /),      &
     570                                             (/ time_since_reference_point /), &
    570571                                         start = (/ do2d_xy_time_count(av) /), &
    571572                                                    count = (/ 1 /) )
     
    753754                            nc_stat = NF90_PUT_VAR( id_set_xz(av),             &
    754755                                                    id_var_time_xz(av),        &
    755                                                     (/ simulated_time /),      &
     756                                             (/ time_since_reference_point /), &
    756757                                         start = (/ do2d_xz_time_count(av) /), &
    757758                                                    count = (/ 1 /) )
     
    960961                            nc_stat = NF90_PUT_VAR( id_set_yz(av),             &
    961962                                                    id_var_time_yz(av),        &
    962                                                     (/ simulated_time /),      &
     963                                             (/ time_since_reference_point /), &
    963964                                         start = (/ do2d_yz_time_count(av) /), &
    964965                                                    count = (/ 1 /) )
Note: See TracChangeset for help on using the changeset viewer.