Ignore:
Timestamp:
Mar 21, 2014 11:00:16 AM (8 years ago)
Author:
raasch
Message:

Changed:


-s real64 removed (.mrun.config.hlrnIII)
-r8 removed (.mrun.config.imuk)
deleted: .mrun.config.imuk_ice2_netcdf4 .mrun.config.imuk_hlrn

REAL constants defined as wp-kind in modules

"baroclinicity" renamed "baroclinity", "ocean version" replaced by
"ocean mode"

code parts concerning old output formats "iso2d" and "avs" removed.
netCDF is the only remaining output format.

Errors:


bugfix: duplicate error message 56 removed

File:
1 edited

Legend:

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

    r1321 r1327  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! -netcdf output queries
    2323!
    2424! Former revisions:
     
    5555
    5656    USE control_parameters,                                                    &
    57         ONLY:  dots_time_count, netcdf_output, time_since_reference_point
     57        ONLY:  dots_time_count, time_since_reference_point
    5858
    5959    USE cpulog,                                                                &
     
    9090!
    9191!--    Open file for time series output in NetCDF format
    92        IF ( netcdf_output )  THEN
    93           dots_time_count = dots_time_count + 1
    94           CALL check_open( 105 )
     92       dots_time_count = dots_time_count + 1
     93       CALL check_open( 105 )
    9594#if defined( __netcdf )
    9695!
    97 !--       Update the time series time axis
    98           nc_stat = NF90_PUT_VAR( id_set_ts, id_var_time_ts,        &
    99                                   (/ time_since_reference_point /), &
    100                                   start = (/ dots_time_count /),    &
    101                                   count = (/ 1 /) )
    102           CALL handle_netcdf_error( 'data_output_tseries', 350 )
     96!--    Update the time series time axis
     97       nc_stat = NF90_PUT_VAR( id_set_ts, id_var_time_ts,        &
     98                               (/ time_since_reference_point /), &
     99                               start = (/ dots_time_count /),    &
     100                               count = (/ 1 /) )
     101       CALL handle_netcdf_error( 'data_output_tseries', 350 )
    103102#endif
    104        ENDIF
    105103
    106104!
     
    110108
    111109#if defined( __netcdf )
    112           IF ( netcdf_output )  THEN
    113              DO  i = 1, dots_num
    114                 nc_stat = NF90_PUT_VAR( id_set_ts, id_var_dots(i,sr),  &
    115                                         (/ ts_value(i,sr) /),          &
    116                                         start = (/ dots_time_count /), &
    117                                         count = (/ 1 /) )
    118                 CALL handle_netcdf_error( 'data_output_tseries', 351 )
    119              ENDDO
    120           ENDIF
     110          DO  i = 1, dots_num
     111             nc_stat = NF90_PUT_VAR( id_set_ts, id_var_dots(i,sr),  &
     112                                     (/ ts_value(i,sr) /),          &
     113                                     start = (/ dots_time_count /), &
     114                                     count = (/ 1 /) )
     115             CALL handle_netcdf_error( 'data_output_tseries', 351 )
     116          ENDDO
    121117#endif
    122118
Note: See TracChangeset for help on using the changeset viewer.