Home


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

Changeset 405 for palm/trunk/SOURCE


Ignore:
Timestamp:
Nov 16, 2009 12:20:59 PM (14 years ago)
Author:
raasch
Message:

some initial data assignments changed due to problems with gfortran compiler; bugfix in docu chapter 3.5.4; mrun test modification for hybrid mpi-openmp

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r403 r405  
    77var_ts is replaced by dots_max (modules,init_3d_model)
    88
    9 modules,init_3d_model
     9init_3d_model, modules
    1010
    1111
    … …  
    1818Bugfix: calculation of precipitation_rate (calc_precipitation)
    1919
    20 sum_up_3d_data, time_integration, calc_precipitation
     20Bugfix: initial data assignments to some dvrp arrays changed due to error
     21messages from gfortran compiler (modules=
     22
     23calc_precipitation, modules, sum_up_3d_data, time_integration
    2124
    2225

  • palm/trunk/SOURCE/modules.f90

    r394 r405  
    55! Current revisions:
    66! -----------------
    7 ! -var_ts: replaced by dots_max
    8 !
     7! -var_ts: replaced by dots_max,
     8! initial data assignments to some dvrp arrays changed due to error messages
     9! from gfortran compiler
    910!
    1011! Former revisions:
    … …  
    583584                           topography_color = (/ 0.8, 0.7, 0.6 /)
    584585
    585 #if defined( __decalpha )
    586     REAL, DIMENSION(2,10)  ::  slicer_range_limits_dvrp = (/ &
     586!#if defined( __decalpha )
     587    REAL, DIMENSION(2,10)  ::  slicer_range_limits_dvrp = RESHAPE( (/      &
    587588                                -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
    588589                                -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
    589                                 -1.0, 1.0, -1.0, 1.0 /)
    590 
    591     REAL, DIMENSION(3,10)  ::  isosurface_color = (/ &
     590                                -1.0, 1.0, -1.0, 1.0 /), (/ 2, 10 /) )
     591
     592    REAL, DIMENSION(3,10)  ::  isosurface_color = RESHAPE( (/                  &
    592593                                0.9, 0.9, 0.9,  0.8, 0.1, 0.1,  0.1, 0.1, 0.8, &
    593594                                0.1, 0.8, 0.1,  0.6, 0.1, 0.1,  0.1, 0.1, 0.6, &
    594                                 0.1, 0.6, 0.1,  0.4, 0.1, 0.1,  0.1, 0.1, 0.4  &
    595                                 0.1, 0.4, 0.1 /)
     595                                0.1, 0.6, 0.1,  0.4, 0.1, 0.1,  0.1, 0.1, 0.4, &
     596                                0.1, 0.4, 0.1 /), (/ 3, 10 /) )
    596597
    597598    REAL(4), DIMENSION(2,100) ::  interval_values_dvrp, interval_h_dvrp =      &
    598                                   (/ 270.0, 225.0, 225.0, 180.0, 70.0, 25.0,   &
    599                                      25.0, -25.0, ( 0.0, i9 = 1, 192 ) /),     &
     599                                  RESHAPE( (/ 270.0, 225.0, 225.0, 180.0,      &
     600                                               70.0,  25.0,  25.0, -25.0,      &
     601                                              ( 0.0, i9 = 1, 192 ) /),         &
     602                                           (/ 2, 100 /) ),                     &
    600603                                  interval_l_dvrp = 0.5, interval_s_dvrp = 1.0,&
    601604                                  interval_a_dvrp = 0.0,                       &
    602605                                  interval_values_dvrp_prt,                    &
    603                                   interval_h_dvrp_prt,                         &
     606                                  interval_h_dvrp_prt = RESHAPE(               &
    604607                                  (/ 270.0, 225.0, 225.0, 180.0, 70.0, 25.0,   &
    605608                                     25.0, -25.0, ( 0.0, i9 = 1, 192 ) /),     &
     609                                                  (/ 2, 100 /) ),              &
    606610                                  interval_l_dvrp_prt = 0.5,                   &
    607611                                  interval_s_dvrp_prt = 1.0,                   &
    608612                                  interval_a_dvrp_prt = 0.0
    609 #else
    610     REAL, DIMENSION(2,10)     ::  slicer_range_limits_dvrp
    611 
    612     REAL, DIMENSION(3,10)     ::  isosurface_color
    613 
    614     REAL(4), DIMENSION(2,100) ::  interval_values_dvrp,                       &
    615                                   interval_values_dvrp_prt, interval_h_dvrp,  &
    616                                   interval_h_dvrp_prt, interval_l_dvrp = 0.5, &
    617                                   interval_l_dvrp_prt = 0.5, interval_s_dvrp = 1.0, &
    618                                   interval_s_dvrp_prt = 1.0, interval_a_dvrp = 0.0, &
    619                                   interval_a_dvrp_prt = 0.0
    620 
    621     DATA  slicer_range_limits_dvrp / -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
    622                                      -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
    623                                      -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
    624                                      -1.0, 1.0 /
    625 
    626     DATA  isosurface_color / 0.9, 0.9, 0.9,  0.8, 0.1, 0.1,  0.1, 0.1, 0.8, &
    627                              0.1, 0.8, 0.1,  0.6, 0.1, 0.1,  0.1, 0.1, 0.6, &
    628                              0.1, 0.6, 0.1,  0.4, 0.1, 0.1,  0.1, 0.1, 0.4, &
    629                              0.1, 0.4, 0.1 /
    630 
    631     DATA  interval_h_dvrp / 270.0, 225.0, 225.0, 180.0, 70.0, 25.0, &
    632                             25.0, -25.0, 192 * 0.0 /
    633 
    634     DATA  interval_h_dvrp_prt / 270.0, 225.0, 225.0, 180.0, 70.0, 25.0, &
    635                                 25.0, -25.0, 192 * 0.0 /
    636 #endif
     613!#else
     614!    REAL, DIMENSION(2,10)     ::  slicer_range_limits_dvrp
     615
     616!    REAL, DIMENSION(3,10)     ::  isosurface_color
     617
     618!    REAL(4), DIMENSION(2,100) ::  interval_values_dvrp,                       &
     619!                                  interval_values_dvrp_prt, interval_h_dvrp,  &
     620!                                  interval_h_dvrp_prt, interval_l_dvrp = 0.5, &
     621!                                  interval_l_dvrp_prt = 0.5, interval_s_dvrp = 1.0, &
     622!                                  interval_s_dvrp_prt = 1.0, interval_a_dvrp = 0.0, &
     623!                                  interval_a_dvrp_prt = 0.0
     624
     625!    DATA  slicer_range_limits_dvrp / -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
     626!                                     -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
     627!                                     -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
     628!                                     -1.0, 1.0 /
     629
     630!    DATA  isosurface_color / 0.9, 0.9, 0.9,  0.8, 0.1, 0.1,  0.1, 0.1, 0.8, &
     631!                             0.1, 0.8, 0.1,  0.6, 0.1, 0.1,  0.1, 0.1, 0.6, &
     632!                             0.1, 0.6, 0.1,  0.4, 0.1, 0.1,  0.1, 0.1, 0.4, &
     633!                             0.1, 0.4, 0.1 /
     634
     635!    DATA  interval_h_dvrp / 270.0, 225.0, 225.0, 180.0, 70.0, 25.0, &
     636!                            25.0, -25.0, 192 * 0.0 /
     637
     638!    DATA  interval_h_dvrp_prt / 270.0, 225.0, 225.0, 180.0, 70.0, 25.0, &
     639!                                25.0, -25.0, 192 * 0.0 /
     640!#endif
    637641
    638642    REAL(4), DIMENSION(:), ALLOCATABLE ::  xcoor_dvrp, ycoor_dvrp, zcoor_dvrp
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |