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/modules.f90

    r1789 r1804  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Removed code for parameter file check (__check)
    2222!
    2323! Former revisions:
     
    687687                     subs_vertical_gradient_level_i(10) = -9999
    688688
    689 #if defined ( __check )
    690     INTEGER(iwp) :: check_restart = 0
    691 #endif
    692689
    693690    INTEGER(iwp), DIMENSION(0:1) :: ntdim_2d_xy, ntdim_2d_xz, ntdim_2d_yz, ntdim_3d
     
    11761173    USE kinds
    11771174
    1178 #if defined( __parallel ) && ! defined ( __check )
     1175#if defined( __parallel )
    11791176#if defined( __lc )
    11801177    USE MPI
     
    12111208
    12121209    INTEGER(iwp) ::  ibuf(12), pcoord(2)
    1213 
    1214 #if ! defined ( __check )
    12151210    INTEGER(iwp) ::  status(MPI_STATUS_SIZE)
    12161211    INTEGER(iwp), DIMENSION(MPI_STATUS_SIZE,100) ::  wait_stat
    1217 #endif
    12181212
    12191213    INTEGER(iwp) :: ngp_yz_int, type_xz_int, type_yz_int
Note: See TracChangeset for help on using the changeset viewer.