Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Ignore:
Timestamp:
Feb 27, 2020 3:24:30 PM (4 years ago)
Author:
raasch
Message:

serial (non-MPI) test case added, several bugfixes for the serial mode

File:
1 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/spectra_mod.f90

    r4360 r4429  
    2525! -----------------
    2626! $Id$
     27! bugfix: preprocessor directives rearranged for serial mode
     28!
     29! 4360 2020-01-07 11:25:50Z suehring
    2730! Corrected "Former revisions" section
    2831!
    … …  
    8184    END INTERFACE preprocess_spectra
    8285
     86#if defined( __parallel )
    8387    INTERFACE calc_spectra_x
    8488       MODULE PROCEDURE calc_spectra_x
    … …  
    8892       MODULE PROCEDURE calc_spectra_y
    8993    END INTERFACE calc_spectra_y
     94#endif
    9095
    9196    INTERFACE spectra_check_parameters
    … …  
    345350
    346351       USE arrays_3d,                                                          &
    347            ONLY:  d, tend
     352           ONLY:  d
     353#if defined( __parallel )
     354       USE arrays_3d,                                                          &
     355           ONLY:  tend
     356#endif
    348357
    349358       USE control_parameters,                                                 &
    … …  
    362371
    363372       USE pegrid,                                                             &
    364            ONLY:  myid, pdims
     373           ONLY:  myid
     374#if defined( __parallel )
     375       USE pegrid,                                                             &
     376           ONLY:  pdims
     377#endif
    365378
    366379       IMPLICIT NONE
    … …  
    489502       USE MPI
    490503#endif
    491 #endif
    492504
    493505       USE pegrid,                                                             &
    494506           ONLY:  collective_wait, comm2d, ierr
     507#endif
    495508
    496509       USE statistics,                                                         &
    … …  
    583596!> @todo Missing subroutine description.
    584597!------------------------------------------------------------------------------!
     598#if defined( __parallel )
    585599    SUBROUTINE calc_spectra_x( ddd, m )
    586600
    … …  
    596610       USE kinds
    597611
    598 #if defined( __parallel )
    599612#if !defined( __mpifh )
    600613       USE MPI
    601614#endif
    602 #endif
    603615
    604616       USE pegrid,                                                             &
    … …  
    611623       IMPLICIT NONE
    612624
    613 #if defined( __parallel )
    614625#if defined( __mpifh )
    615626       INCLUDE "mpif.h"
    616 #endif
    617627#endif
    618628
    … …  
    718728
    719729    END SUBROUTINE calc_spectra_x
     730#endif
    720731
    721732
    … …  
    725736!> @todo Missing subroutine description.
    726737!------------------------------------------------------------------------------!
     738#if defined( __parallel )
    727739    SUBROUTINE calc_spectra_y( ddd, m )
    728740
    … …  
    738750       USE kinds
    739751
    740 #if defined( __parallel )
    741752#if !defined( __mpifh )
    742753       USE MPI
    743754#endif
    744 #endif
    745755
    746756       USE pegrid,                                                             &
    … …  
    753763       IMPLICIT NONE
    754764
    755 #if defined( __parallel )
    756765#if defined( __mpifh )
    757766       INCLUDE "mpif.h"
    758 #endif
    759767#endif
    760768
    … …  
    862870
    863871    END SUBROUTINE calc_spectra_y
     872#endif
    864873
    865874 END MODULE spectra_mod
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |