Changeset 3481

Timestamp:

Nov 2, 2018 9:14:13 AM (6 years ago)

Author:

raasch

Message:

temporary variable cc introduced to circumvent a possible Intel18 compiler bug related to contiguous/non-contguous pointer/target attributes

File:

• palm/trunk/SOURCE/salsa_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/salsa_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! temporary variable cc introduced to circumvent a possible Intel18 compiler bug
+! related to contiguous/non-contguous pointer/target attributes
+! 
+! 3473 2018-10-30 20:50:15Z suehring
 ! NetCDF input routine renamed
 ! 
@@ -1935 +1939 @@
     INTEGER(iwp) ::  b  !<    
     INTEGER(iwp) ::  c  !<    
+    INTEGER(iwp) ::  cc !<
     INTEGER(iwp) ::  g  !<
 
@@ -1956 +1961 @@
                 nconc_2(:,:,:,b)
              DO  c = 1, ncc_tot
-                aerosol_mass((c-1)*nbins+b)%conc(nzb:nzt+1,nysg:nyng,nxlg:nxrg)  &
-                   => mconc_1(:,:,:,(c-1)*nbins+b)
-                aerosol_mass((c-1)*nbins+b)%conc_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg)&
-                   => mconc_2(:,:,:,(c-1)*nbins+b)
+                cc = ( c-1 ) * nbins + b  ! required due to possible Intel18 bug
+                aerosol_mass(cc)%conc(nzb:nzt+1,nysg:nyng,nxlg:nxrg)   =>      &
+                   mconc_1(:,:,:,cc)
+                aerosol_mass(cc)%conc_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg) =>      &
+                   mconc_2(:,:,:,cc)
              ENDDO
           ENDDO
@@ -1980 +1986 @@
                 nconc_1(:,:,:,b)
              DO  c = 1, ncc_tot
-                aerosol_mass((c-1)*nbins+b)%conc(nzb:nzt+1,nysg:nyng,nxlg:nxrg)  &
-                   => mconc_2(:,:,:,(c-1)*nbins+b)
-                aerosol_mass((c-1)*nbins+b)%conc_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg)&
-                   => mconc_1(:,:,:,(c-1)*nbins+b)
+                cc = ( c-1 ) * nbins + b  ! required due to possible Intel18 bug
+                aerosol_mass(cc)%conc(nzb:nzt+1,nysg:nyng,nxlg:nxrg)   =>      &
+                   mconc_2(:,:,:,cc)
+                aerosol_mass(cc)%conc_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg) =>      &
+                   mconc_1(:,:,:,cc)
              ENDDO
           ENDDO