Changeset 3483 for palm/trunk/SOURCE


Ignore:
Timestamp:
Nov 2, 2018 2:19:26 PM (6 years ago)
Author:
raasch
Message:

bugfix: misplaced positions of cpp-directives for netCDF and MPI fixed; output format limited to a maximum line length of 80

Location:
palm/trunk/SOURCE
Files:
5 edited

Legend:

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

    r3467 r3483  
    2727! -----------------
    2828! $Id$
     29! bugfix: wrong locations of netCDF directives fixed
     30!
     31! 3467 2018-10-30 19:05:21Z suehring
    2932! Enabled PARAMETRIZED mode for default surfaces when LSM is not applied but
    3033! salsa is used
     
    8588
    8689#if defined ( __netcdf )
     90    USE NETCDF
     91#endif
    8792
    8893    USE netcdf_data_input_mod,                                                  &
    8994       ONLY: chem_emis_att_type, chem_emis_val_type
    90 
    91     USE NETCDF
    92 
    93 #endif
    9495
    9596    USE date_and_time_mod,                                                      &
     
    192193
    193194    !> Boltzmann constant:
    194     REAL, PARAMETER        ::  kbolz = 1.38066e-23_wp    ! J/K
     195    REAL(wp), PARAMETER     ::  kbolz = 1.38066e-23_wp    ! J/K
    195196
    196197    !> Inverse Reference Pressure (1/Pa)   
     
    758759 SUBROUTINE chem_emissions_init(emt_att,emt,nspec_out)
    759760
    760 #if defined( __netcdf )
    761 
    762761    USE surface_mod,                                                           &
    763762       ONLY:  surf_lsm_h,surf_def_h,surf_usm_h
     
    868867  ENDIF   
    869868
    870 #endif
    871 
    872 
    873869 END SUBROUTINE chem_emissions_init
    874870
     
    899895
    900896 IMPLICIT NONE
    901 
    902 #if defined( __netcdf )
    903897 
    904898    !--- IN/OUT
     
    17161710
    17171711
    1718 #endif
    1719 
    17201712 END SUBROUTINE chem_emissions_setup
    17211713
  • palm/trunk/SOURCE/cpulog_mod.f90

    r3229 r3483  
    2525! -----------------
    2626! $Id$
     27! output format limited to a maximum line length of 80
     28!
     29! 3229 2018-09-04 15:05:36Z sward
    2730! Bugfix in maximum time spent per log point: PE 0 was beeing ignored.
    2831!
     
    587590   101 FORMAT (/'special measures:'/ &
    588591               &'-----------------------------------------------------------', &
    589                &'------------------------')
    590 
    591    102 FORMAT (A25,2X,F9.3,2X,F7.2,1X,I7,3(1X,F9.3))
     592               &'---------------------')
     593
     594   102 FORMAT (A25,2X,F9.3,2X,F7.2,1X,I7,2(1X,F9.3),1X,F5.2)
    592595   103 FORMAT (/'Barriers are set in front of collective operations')
    593596   104 FORMAT (/'No barriers are set in front of collective operations')
     
    595598   106 FORMAT (/'Exchange of ghostpoints via MPI_ISEND/MPI_IRECV')
    596599   107 FORMAT (//)
    597    110 FORMAT ('-------------------------------------------------------------',    &
    598                &'---------'//&
    599                &'place:                              mean        counts      min  ',&
    600                &'     max       rms'/ &
    601                &'                                sec.      %                sec. ', &
    602                &'     sec.      sec.'/  &
    603                &'-----------------------------------------------------------',      &
    604                &'------------------------')
     600   110 FORMAT ('------------------------------------------------------------', &
     601               &'----------'//                                                 &
     602               &'place:                              mean        counts     ', &
     603               &' min       max    rms'/                                      &
     604               &'                                sec.      %                ', &
     605               &'sec.      sec.   sec.'/                                       &
     606               &'-----------------------------------------------------------', &
     607               &'---------------------')
    605608   111 FORMAT (/'Barriers are set at beginning (start/continue) of measurements')
    606609
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r3474 r3483  
    2525! -----------------
    2626! $Id$
     27! bugfix: misplaced directives for netCDF fixed
     28!
     29! 3474 2018-10-30 21:07:39Z kanani
    2730! Add UV exposure model input (Schrempf)
    2831!
     
    49444947     SUBROUTINE netcdf_data_input_get_dimension_length( id, dim_len,           &
    49454948                                                        variable_name )
    4946 #if defined( __netcdf )
    4947 
    49484949       USE pegrid
    49494950
     
    49574958       INTEGER(iwp)                ::  id_dim           !< dimension id
    49584959
     4960#if defined( __netcdf )
    49594961!
    49604962!--    First, inquire dimension ID
  • palm/trunk/SOURCE/salsa_mod.f90

    r3481 r3483  
    2525! -----------------
    2626! $Id$
     27! bugfix: directives added to allow compilation without netCDF
     28!
     29! 3481 2018-11-02 09:14:13Z raasch
    2730! temporary variable cc introduced to circumvent a possible Intel18 compiler bug
    2831! related to contiguous/non-contguous pointer/target attributes
     
    14101413        ONLY:  zu
    14111414 
    1412     USE NETCDF
     1415!    USE NETCDF
    14131416   
    14141417    USE netcdf_data_input_mod,                                                 &
     
    14691472!
    14701473!--    Read input profiles from PIDS_SALSA   
     1474#if defined( __netcdf )
    14711475!   
    14721476!--    Location-dependent size distributions and compositions.     
     
    15601564          CALL message( 'salsa_mod: aerosol_init', 'SA0032', 1, 2, 0, 6, 0 )               
    15611565       ENDIF   ! netcdf_extend   
     1566#endif
    15621567 
    15631568    ELSEIF ( isdtyp == 0 )  THEN
     
    16101615!
    16111616!--    Read input profiles from PIDS_CHEM   
     1617#if defined( __netcdf )
    16121618!   
    16131619!--    Location-dependent size distributions and compositions.     
     
    16611667          CALL message( 'salsa_mod: aerosol_init', 'SA0033', 1, 2, 0, 6, 0 )               
    16621668       ENDIF   ! netcdf_extend     
     1669#endif
     1670
    16631671    ENDIF
    16641672
  • palm/trunk/SOURCE/surface_output_mod.f90

    r3421 r3483  
    2525! -----------------
    2626! $Id$
     27! bugfix: missed directives for MPI added
     28!
     29! 3421 2018-10-24 18:39:32Z gronemeier
    2730! Add output variables
    2831! Write data into binary file
    29 ! Initial implenentation from Klaus Ketelsen and Matthias Suehring
     32! Initial implementation from Klaus Ketelsen and Matthias Suehring
    3033!
    3134! 3420 2018-10-24 17:30:08Z gronemeier
     
    796799               WRITE ( 25+av )  surfaces%polygons
    797800            ENDIF
     801#if defined( __parallel )
    798802            CALL MPI_BARRIER( comm2d, ierr )
     803#endif
    799804            first_output(av) = .TRUE.
    800805         ENDDO
     
    808813            WRITE ( 25+av )  simulated_time
    809814         ENDIF
     815#if defined( __parallel )
    810816         CALL MPI_BARRIER( comm2d, ierr )
     817#endif
    811818      ENDDO
    812819
     
    19411948               WRITE ( 25+av )  surfaces%var_out
    19421949            ENDIF
     1950#if defined( __parallel )
    19431951            CALL MPI_BARRIER( comm2d, ierr )
     1952#endif
    19441953         ENDDO
    19451954
Note: See TracChangeset for help on using the changeset viewer.