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/lpm_exchange_horiz.f90

    r1321 r1327  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! -netcdf output queries
    2323!
    2424! Former revisions:
     
    5353
    5454    USE control_parameters,                                                    &
    55         ONLY:  message_string, netcdf_output, netcdf_data_format
     55        ONLY:  message_string, netcdf_data_format
    5656
    5757    USE cpulog,                                                                &
     
    350350            maximum_number_of_particles )           &
    351351       THEN
    352           IF ( netcdf_output  .AND.  netcdf_data_format < 3 )  THEN
     352          IF ( netcdf_data_format < 3 )  THEN
    353353              message_string = 'maximum_number_of_particles ' //    &
    354354                               'needs to be increased ' //          &
     
    374374          IF ( number_of_tails+trrpt_count_recv > maximum_number_of_tails ) &
    375375          THEN
    376              IF ( netcdf_output  .AND.  netcdf_data_format < 3 )  THEN
     376             IF ( netcdf_data_format < 3 )  THEN
    377377                message_string = 'maximum_number_of_tails ' //   &
    378378                                 'needs to be increased ' //     &
     
    414414            maximum_number_of_particles )           &
    415415       THEN
    416           IF ( netcdf_output  .AND.  netcdf_data_format < 3 )  THEN
     416          IF ( netcdf_data_format < 3 )  THEN
    417417             message_string = 'maximum_number_of_particles ' //  &
    418418                              'needs to be increased ' //        &
     
    438438          IF ( number_of_tails+trlpt_count_recv > maximum_number_of_tails ) &
    439439          THEN
    440              IF ( netcdf_output  .AND.  netcdf_data_format < 3 )  THEN
     440             IF ( netcdf_data_format < 3 )  THEN
    441441                message_string = 'maximum_number_of_tails ' //   &
    442442                                 'needs to be increased ' //     &
     
    723723            maximum_number_of_particles )           &
    724724       THEN
    725           IF ( netcdf_output  .AND.  netcdf_data_format < 3 )  THEN
     725          IF ( netcdf_data_format < 3 )  THEN
    726726             message_string = 'maximum_number_of_particles ' //  &
    727727                              'needs to be increased ' //        &
     
    747747          IF ( number_of_tails+trnpt_count_recv > maximum_number_of_tails ) &
    748748          THEN
    749              IF ( netcdf_output  .AND.  netcdf_data_format < 3 )  THEN
     749             IF ( netcdf_data_format < 3 )  THEN
    750750                message_string = 'maximum_number_of_tails ' //    &
    751751                                 'needs to be increased ' //      &
     
    788788            maximum_number_of_particles )           &
    789789       THEN
    790           IF ( netcdf_output  .AND.  netcdf_data_format < 3 )  THEN
     790          IF ( netcdf_data_format < 3 )  THEN
    791791             message_string = 'maximum_number_of_particles ' //   &
    792792                              'needs to be increased ' //         &
     
    812812          IF ( number_of_tails+trspt_count_recv > maximum_number_of_tails ) &
    813813          THEN
    814              IF ( netcdf_output  .AND.  netcdf_data_format < 3 )  THEN
     814             IF ( netcdf_data_format < 3 )  THEN
    815815                message_string = 'maximum_number_of_tails ' //   &
    816816                                 'needs to be increased ' //     &
Note: See TracChangeset for help on using the changeset viewer.