Ignore:
Timestamp:
Apr 5, 2016 4:30:18 PM (5 years ago)
Author:
maronga
Message:

removed parameter file check. update of mrungui for compilation with qt5

File:
1 edited

Legend:

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

    r1780 r1804  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Removed code for parameter file check (__check)
    2222!
    2323! Former revisions:
     
    267267
    268268
    269 #if ! defined( __check)
    270269!
    271270!-- Create the virtual processor grid
     
    293292    CALL MPI_COMM_RANK( comm1dy, myidy, ierr )
    294293
    295 #endif
    296294
    297295!
     
    489487
    490488
    491 #if ! defined( __check)
    492489!
    493490!-- Collect index bounds from other PEs (to be written to restart file later)
     
    520517    ENDIF
    521518
    522 #endif
    523519
    524520#if defined( __print )
     
    556552#endif
    557553
    558 #if defined( __parallel ) && ! defined( __check)
     554#if defined( __parallel )
    559555#if defined( __mpi2 )
    560556!
     
    897893
    898894          IF ( i == mg_switch_to_pe0_level )  THEN
    899 #if defined( __parallel ) && ! defined( __check )
     895#if defined( __parallel )
    900896!
    901897!--          Save the grid size of the subdomain at the switch level, because
     
    930926                              ( nzt_l - nzb + 2 )
    931927
    932 #elif ! defined ( __parallel )
     928#else
    933929             message_string = 'multigrid gather/scatter impossible ' // &
    934930                          'in non parallel mode'
     
    972968    grid_level = 0
    973969
    974 #if defined( __parallel ) && ! defined ( __check )
     970#if defined( __parallel )
    975971!
    976972!-- Gridpoint number for the exchange of ghost points (y-line for 2D-arrays)
     
    10681064#endif
    10691065
    1070 #if defined( __parallel ) && ! defined ( __check )
     1066#if defined( __parallel )
    10711067!
    10721068!-- Setting of flags for inflow/outflow/nesting conditions in case of non-cyclic
     
    11381134    CALL location_message( 'finished', .TRUE. )
    11391135
    1140 #elif ! defined ( __parallel )
     1136#else
    11411137    IF ( bc_lr == 'dirichlet/radiation' )  THEN
    11421138       inflow_l  = .TRUE.
Note: See TracChangeset for help on using the changeset viewer.