Changeset 3405


Ignore:
Timestamp:
Oct 23, 2018 3:34:41 PM (3 years ago)
Author:
raasch
Message:

bugfix: BIND attribute added to derived type particle_type, bugfix: nx, ny are required in non-parallel case

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r3337 r3405  
    2525! -----------------
    2626! $Id$
     27! bugfix: nx, ny are required in non-parallel case
     28!
     29! 3337 2018-10-12 15:17:09Z kanani
    2730! (from branch resler)
    2831! Add Biometeorology
     
    242245        ONLY: gust_data_output_3d, gust_module_enabled
    243246
     247#if defined( __parallel )
    244248    USE indices,                                                               &
    245249        ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt,     &
    246250               wall_flags_0
     251#else
     252    USE indices,                                                               &
     253        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nzb,  &
     254               nzt, wall_flags_0
     255#endif
    247256
    248257    USE kinds
  • palm/trunk/SOURCE/mod_particle_attributes.f90

    r2718 r3405  
    2525! -----------------
    2626! $Id$
     27! bugfix: BIND attribute added to derived type particle_type
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    102105MODULE particle_attributes
    103106
     107    USE, INTRINSIC ::  ISO_C_BINDING
    104108
    105109    USE kinds
     
    211215
    212216
    213     TYPE particle_type
     217    TYPE, BIND(C) :: particle_type
    214218        REAL(wp)     ::  aux1          !< auxiliary multi-purpose feature
    215219        REAL(wp)     ::  aux2          !< auxiliary multi-purpose feature
Note: See TracChangeset for help on using the changeset viewer.