Changeset 377 for palm/trunk/SOURCE

Timestamp:

Sep 4, 2009 11:09:00 AM (16 years ago)

Author:

raasch

Message:

adjustments for openmp usage on sgi-ice

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (2 diffs)
• poisfft.f90 (modified) (8 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -57 +57 @@
 New: set_particle_attributes, set_slicer_attributes_dvrp
 
+
 Changed:
 -------
+__lcmuk changed to __lc to avoid problems with Intel compiler on sgi-ice
+(poisfft)
+
 For extended NetCDF files, the updated title attribute includes an update of
 time_average_text where appropriate. (netcdf)
@@ -116 +120 @@
 for coupled runs on ibmy (mrun, subjob)
 
-advec_particles, advec_s_bc, buoyancy, calc_spectra, check_for_restart, check_open, check_parameters, close_file, coriolis, cpu_log, data_output_2d, data_output_3d, data_output_dvrp, data_output_profiles, data_output_ptseries, data_output_spectra, data_output_tseries, eqn_state_seawater, fft_xy, flow_statistics, header, init_1d_model, init_3d_model, init_dvrp, init_grid, init_particles, init_pegrid, message, mrun, netcdf, output_particles_netcdf, package_parin, parin, plant_canopy_model, poisfft_hybrid, poismg, read_3d_binary, read_var_list, sort_particles, subjob, user_check_parameters, user_header, user_init_grid, user_parin, surface_coupler, temperton_fft, timestep, user_actions, user_data_output_dvrp, user_dvrp_coltab, user_init_grid, user_init_plant_canopy, user_parin, user_read_restart_data, user_spectra, write_var_list
+advec_particles, advec_s_bc, buoyancy, calc_spectra, check_for_restart, check_open, check_parameters, close_file, coriolis, cpu_log, data_output_2d, data_output_3d, data_output_dvrp, data_output_profiles, data_output_ptseries, data_output_spectra, data_output_tseries, eqn_state_seawater, fft_xy, flow_statistics, header, init_1d_model, init_3d_model, init_dvrp, init_grid, init_particles, init_pegrid, message, mrun, netcdf, output_particles_netcdf, package_parin, parin, plant_canopy_model, poisfft, poisfft_hybrid, poismg, read_3d_binary, read_var_list, sort_particles, subjob, user_check_parameters, user_header, user_init_grid, user_parin, surface_coupler, temperton_fft, timestep, user_actions, user_data_output_dvrp, user_dvrp_coltab, user_init_grid, user_init_plant_canopy, user_parin, user_read_restart_data, user_spectra, write_var_list
 
 

palm/trunk/SOURCE/poisfft.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! __lcmuk changed to __lc to avoid problems with Intel compiler on sgi-ice
 !
 ! Former revisions:
@@ -1361 +1361 @@
 
        IF ( j <= nnyh )  THEN
-#if defined( __lcmuk )
+#if defined( __lc )
           CALL maketri_1dd( j, tri )
 #else
@@ -1367 +1367 @@
 #endif
        ELSE
-#if defined( __lcmuk )
+#if defined( __lc )
           CALL maketri_1dd( ny+1-j, tri )
 #else
@@ -1373 +1373 @@
 #endif
        ENDIF
-#if defined( __lcmuk )
+#if defined( __lc )
        CALL split_1dd( tri )
 #else
@@ -1382 +1382 @@
     CONTAINS
 
-#if defined( __lcmuk )
+#if defined( __lc )
        SUBROUTINE maketri_1dd( j, tri )
 #else
@@ -1401 +1401 @@
           REAL, DIMENSION(0:nx) ::  l
 
-#if defined( __lcmuk )
+#if defined( __lc )
           REAL, DIMENSION(5,0:nx,0:nz-1) ::  tri
 #endif
@@ -1448 +1448 @@
 
 
-#if defined( __lcmuk )
+#if defined( __lc )
        SUBROUTINE split_1dd( tri )
 #else
@@ -1462 +1462 @@
           INTEGER ::  i, k
 
-#if defined( __lcmuk )
+#if defined( __lc )
           REAL, DIMENSION(5,0:nx,0:nz-1) ::  tri
 #endif