Ignore:
Timestamp:
Jan 30, 2012 1:32:58 PM (10 years ago)
Author:
maronga
Message:

Bugfix: cpp directives .NOT., .AND. replaced by !,&&. Minor bugfixes in mrungui

File:
1 edited

Legend:

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

    r808 r809  
    44! Current revisions:
    55! -----------------
    6 !
     6! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
    77!
    88! Former revisions:
     
    237237#endif
    238238
    239 #if .NOT. defined( __check )
     239#if ! defined( __check )
    240240       IF ( myid == 0 ) THEN
    241241          CALL MPI_SEND( dt_coupling, 1, MPI_REAL, target_id, 11, comm_inter, &
     
    253253       ENDIF
    254254       IF ( dt_coupling <= 0.0 )  THEN
    255 #if .NOT. defined( __check )
     255#if ! defined( __check )
    256256          IF ( myid == 0  ) THEN
    257257             CALL MPI_SEND( dt_max, 1, MPI_REAL, target_id, 19, comm_inter, ierr )
     
    267267          CALL message( 'check_parameters', 'PA0005', 0, 1, 0, 6, 0 )
    268268       ENDIF
    269 #if .NOT. defined( __check )
     269#if ! defined( __check )
    270270       IF ( myid == 0 ) THEN
    271271          CALL MPI_SEND( restart_time, 1, MPI_REAL, target_id, 12, comm_inter, &
     
    282282          CALL message( 'check_parameters', 'PA0006', 1, 2, 0, 6, 0 )
    283283       ENDIF
    284 #if .NOT. defined( __check )
     284#if ! defined( __check )
    285285       IF ( myid == 0 ) THEN
    286286          CALL MPI_SEND( dt_restart, 1, MPI_REAL, target_id, 13, comm_inter, &
     
    299299
    300300       simulation_time_since_reference = end_time - coupling_start_time
    301 #if .NOT. defined( __check )
     301#if ! defined( __check )
    302302       IF  ( myid == 0 ) THEN
    303303          CALL MPI_SEND( simulation_time_since_reference, 1, MPI_REAL, target_id, &
     
    316316       ENDIF
    317317
    318 #if .NOT. defined( __check )
     318#if ! defined( __check )
    319319       IF ( myid == 0 ) THEN
    320320          CALL MPI_SEND( dx, 1, MPI_REAL, target_id, 15, comm_inter, ierr )
     
    343343       ENDIF
    344344
    345 #if .NOT. defined( __check )
     345#if ! defined( __check )
    346346       IF ( myid == 0) THEN
    347347          CALL MPI_SEND( dy, 1, MPI_REAL, target_id, 16, comm_inter, ierr )
     
    391391    ENDIF
    392392
    393 #if defined( __parallel ) .AND. .NOT. defined ( __check )
     393#if defined( __parallel ) && ! defined ( __check )
    394394!
    395395!-- Exchange via intercommunicator
     
    29592959!
    29602960
    2961 #if .NOT. defined( __check )
     2961#if ! defined( __check )
    29622962!-- Check netcdf precison
    29632963    ldum = .FALSE.
Note: See TracChangeset for help on using the changeset viewer.