Changeset 4415 for palm


Ignore:
Timestamp:
Feb 20, 2020 10:30:33 AM (13 months ago)
Author:
raasch
Message:

bugfix for misplaced/missing preprocessor directives

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r4370 r4415  
    2525! -----------------
    2626! $Id$
     27! bugfix for misplaced preprocessor directive
     28!
     29! 4370 2020-01-10 14:00:44Z raasch
    2730! vector array renamed
    2831!
     
    983986          ENDDO
    984987          !$OMP  END PARALLEL
    985 #endif
    986988
    987989       ENDIF
     990
     991#endif
    988992
    989993    ENDIF
  • palm/trunk/SOURCE/vdi_internal_controls.f90

    r4346 r4415  
    2525! -----------------
    2626! $Id$
     27! missing preprocessor directive added
     28!
     29! 4346 2019-12-18 11:55:56Z motisi
    2730! Introduction of wall_flags_total_0, which currently sets bits based on static
    2831! topography information used in wall_flags_static_0
     
    9194    USE kinds
    9295
     96#if defined( __parallel )
    9397    USE pegrid,                             &
    9498        ONLY:  collective_wait,             &
     
    100104               MPI_SUM,                     &
    101105               myid
     106#else
     107    USE pegrid,                             &
     108        ONLY:  myid
     109#endif
    102110
    103111
Note: See TracChangeset for help on using the changeset viewer.