Changeset 220 for palm/trunk/SOURCE


Ignore:
Timestamp:
Dec 18, 2008 7:00:36 AM (16 years ago)
Author:
raasch
Message:

some small bugfixes in user_module, user_read_restart_data, read_3d_binary, flow_statistics and mrun

Location:
palm/trunk/SOURCE
Files:
4 edited

Legend:

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

    r198 r220  
    10081008       ts_value(19,sr) = hom(nzb+1,1,pr_palm,sr)    ! u'w'    at k=0
    10091009       ts_value(20,sr) = hom(nzb+2,1,pr_palm,sr)    ! v'w'    at k=0
    1010        ts_value(21,sr) = hom(nzb+12,1,pr_palm,sr)   ! w'q'    at k=0
     1010       ts_value(21,sr) = hom(nzb+12,1,pr_palm,sr)   ! q*
    10111011
    10121012       IF ( ts_value(5,sr) /= 0.0 )  THEN
  • palm/trunk/SOURCE/read_3d_binary.f90

    r216 r220  
    974974!
    975975!--    Read user-defined restart data
    976        CALL user_read_restart_data( nxlfa, nxl_on_file, nxrfa, nxr_on_file, &
    977                                     nynfa, nyn_on_file, nysfa, nys_on_file, &
    978                                     offset_xa, offset_ya, overlap_count(i), &
     976       CALL user_read_restart_data( i, nxlfa, nxl_on_file, nxrfa, nxr_on_file, &
     977                                    nynfa, nyn_on_file, nysfa, nys_on_file,    &
     978                                    offset_xa, offset_ya, overlap_count(i),    &
    979979                                    tmp_2d, tmp_3d )
    980980
  • palm/trunk/SOURCE/user_module.f90

    r211 r220  
    3737    INTEGER ::  dots_num_palm, user_idummy
    3838    LOGICAL ::  user_defined_namelist_found = .FALSE.
    39     REAL    ::  user_dummy
     39    REAL    ::  user_rdummy
    4040
    4141!
  • palm/trunk/SOURCE/user_read_restart_data.f90

    r216 r220  
    1  SUBROUTINE user_read_restart_data( nxlfa, nxl_on_file, nxrfa, nxr_on_file, &
    2                                     nynfa, nyn_on_file, nysfa, nys_on_file, &
    3                                     offset_xa, offset_ya, overlap_count,    &
     1 SUBROUTINE user_read_restart_data( i, nxlfa, nxl_on_file, nxrfa, nxr_on_file, &
     2                                    nynfa, nyn_on_file, nysfa, nys_on_file,    &
     3                                    offset_xa, offset_ya, overlap_count,       &
    44                                    tmp_2d, tmp_3d )
    55
     
    3333    CHARACTER (LEN=20) :: field_char
    3434
    35     INTEGER ::  k, nxlc, nxlf, nxl_on_file, nxrc, nxrf, nxr_on_file, nync, &
     35    INTEGER ::  i, k, nxlc, nxlf, nxl_on_file, nxrc, nxrf, nxr_on_file, nync, &
    3636                nynf, nyn_on_file, nysc, nysf, nys_on_file, overlap_count
    3737
Note: See TracChangeset for help on using the changeset viewer.