Changeset 3481 for palm/trunk/SOURCE


Ignore:
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:
1 edited

Legend:

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

    r3473 r3481  
    2525! -----------------
    2626! $Id$
     27! temporary variable cc introduced to circumvent a possible Intel18 compiler bug
     28! related to contiguous/non-contguous pointer/target attributes
     29!
     30! 3473 2018-10-30 20:50:15Z suehring
    2731! NetCDF input routine renamed
    2832!
     
    19351939    INTEGER(iwp) ::  b  !<   
    19361940    INTEGER(iwp) ::  c  !<   
     1941    INTEGER(iwp) ::  cc !<
    19371942    INTEGER(iwp) ::  g  !<
    19381943
     
    19561961                nconc_2(:,:,:,b)
    19571962             DO  c = 1, ncc_tot
    1958                 aerosol_mass((c-1)*nbins+b)%conc(nzb:nzt+1,nysg:nyng,nxlg:nxrg)  &
    1959                    => mconc_1(:,:,:,(c-1)*nbins+b)
    1960                 aerosol_mass((c-1)*nbins+b)%conc_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg)&
    1961                    => mconc_2(:,:,:,(c-1)*nbins+b)
     1963                cc = ( c-1 ) * nbins + b  ! required due to possible Intel18 bug
     1964                aerosol_mass(cc)%conc(nzb:nzt+1,nysg:nyng,nxlg:nxrg)   =>      &
     1965                   mconc_1(:,:,:,cc)
     1966                aerosol_mass(cc)%conc_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg) =>      &
     1967                   mconc_2(:,:,:,cc)
    19621968             ENDDO
    19631969          ENDDO
     
    19801986                nconc_1(:,:,:,b)
    19811987             DO  c = 1, ncc_tot
    1982                 aerosol_mass((c-1)*nbins+b)%conc(nzb:nzt+1,nysg:nyng,nxlg:nxrg)  &
    1983                    => mconc_2(:,:,:,(c-1)*nbins+b)
    1984                 aerosol_mass((c-1)*nbins+b)%conc_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg)&
    1985                    => mconc_1(:,:,:,(c-1)*nbins+b)
     1988                cc = ( c-1 ) * nbins + b  ! required due to possible Intel18 bug
     1989                aerosol_mass(cc)%conc(nzb:nzt+1,nysg:nyng,nxlg:nxrg)   =>      &
     1990                   mconc_2(:,:,:,cc)
     1991                aerosol_mass(cc)%conc_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg) =>      &
     1992                   mconc_1(:,:,:,cc)
    19861993             ENDDO
    19871994          ENDDO
Note: See TracChangeset for help on using the changeset viewer.