Ignore:
Timestamp:
Feb 28, 2012 12:29:49 PM (10 years ago)
Author:
maronga
Message:

further adjustments and bugfixes for the namelist file check

File:
1 edited

Legend:

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

    r710 r841  
    44! Current revisions:
    55! -----------------
    6 !
     6! Excluded routine from compilation of namelist_file_check
    77!
    88! Former revisions:
     
    5959    IMPLICIT NONE
    6060
     61
     62    INTEGER ::  nbgp_local
     63    REAL, DIMENSION(nzb:nzt+1,nys-nbgp_local:nyn+nbgp_local, &
     64                    nxl-nbgp_local:nxr+nbgp_local) ::  ar
     65
     66#if ! defined( __check )
    6167#if defined( __parallel )
    6268    INTEGER, DIMENSION(4)                 ::  req
    6369    INTEGER, DIMENSION(MPI_STATUS_SIZE,4) ::  wait_stat
    6470#endif
    65     INTEGER ::  nbgp_local
    66     REAL, DIMENSION(nzb:nzt+1,nys-nbgp_local:nyn+nbgp_local, &
    67                     nxl-nbgp_local:nxr+nbgp_local) ::  ar
     71
    6872
    6973    CALL cpu_log( log_point_s(2), 'exchange_horiz', 'start' )
     
    187191    CALL cpu_log( log_point_s(2), 'exchange_horiz', 'stop' )
    188192
    189 
     193#endif
    190194 END SUBROUTINE exchange_horiz
Note: See TracChangeset for help on using the changeset viewer.