Ignore:
Timestamp:
Nov 24, 2010 4:10:51 PM (11 years ago)
Author:
raasch
Message:

New:
---

Changed:


Parameters moved from d3par to inipar: call_psolver_at_all_substeps,
cfl_factor, cycle_mg, mg_cycles,mg_switch_to_pe0_level, ngsrb, nsor,
omega_sor, prandtl_number, psolver, rayleigh_damping_factor,
rayleigh_damping_height, residual_limit (parin, read_var_list, write_var_list)

Due to this change, in routine skip_var_list (end of file read_var_list.f90),
variable ldum is replaced by cdum(LEN=1), because otherwise read errors (too
few data on file) would appear due to one of the additional parameters
(cycle_mg, which is a string of one single character) which are now stored
on the restart file.

Weblink to error message database changed to new trac server (message)

Errors:


Bugfix concerning check of cross-section levels on netcdf-files to be
extended (xz,yz) (netcdf)

Bugfix in opening of cross section netcdf-files (parallel opening with
netcdf4 only works for netcdf_data_format > 2) (check_open)

Default values of surface_scalarflux and surface_waterflux changed from 0.0
to 9999999.9. Giving the parameter the default values means, that the
respective surface fluxes are calculated by the MO-relations, so the old default
value did not allow to set the surface fluxes to zero explicitly.

File:
1 edited

Legend:

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

    r565 r600  
    44! Current revisions:
    55! -----------------
    6 !
     6! Bugfix in opening of cross section netcdf-files (parallel opening with
     7! netcdf4 only works for netcdf_data_format > 2)
    78!
    89! Former revisions:
     
    723724!
    724725!--          Open an existing NetCDF file for output
     726             IF ( netcdf_data_format < 3 )  THEN
     727                nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xy(av) )
     728             ELSE
    725729#if defined( __netcdf4 )
    726              nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xy(av), &
    727                                   COMM = comm2d, INFO = MPI_INFO_NULL )
    728 #else
    729              nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xy(av) )
    730 #endif
     730                nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xy(av), &
     731                                     COMM = comm2d, INFO = MPI_INFO_NULL )
     732#endif
     733             ENDIF
    731734
    732735             CALL handle_netcdf_error( 'check_open', 20 )
     
    817820          IF ( netcdf_extend )  THEN
    818821!
    819 !--          Open an existing NetCDF file for output
     822!--          Open an existing NetCDF file for output
     823             IF ( netcdf_data_format < 3 )  THEN
     824                nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xz(av) )
     825             ELSE
    820826#if defined( __netcdf4 )
    821              nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xz(av), &
    822                                   COMM = comm2d, INFO = MPI_INFO_NULL )
    823 #else
    824              nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xz(av) )
    825 #endif
     827                nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xz(av), &
     828                                     COMM = comm2d, INFO = MPI_INFO_NULL )
     829#endif
     830             ENDIF
     831
    826832             CALL handle_netcdf_error( 'check_open', 23 )
    827833!
     
    911917          IF ( netcdf_extend )  THEN
    912918!
    913 !--          Open an existing NetCDF file for output
     919!--          Open an existing NetCDF file for output
     920             IF ( netcdf_data_format < 3 )  THEN
     921                nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_yz(av) )
     922             ELSE
    914923#if defined( __netcdf4 )
    915              nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_yz(av), &
    916                                   COMM = comm2d, INFO = MPI_INFO_NULL )
    917 #else
    918              nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_yz(av) )
    919 #endif
     924                nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_yz(av), &
     925                                     COMM = comm2d, INFO = MPI_INFO_NULL )
     926#endif
     927             ENDIF
     928
    920929             CALL handle_netcdf_error( 'check_open', 26 )
    921930!
Note: See TracChangeset for help on using the changeset viewer.