Changeset 4432 for palm


Ignore:
Timestamp:
Feb 28, 2020 7:43:21 AM (16 months ago)
Author:
raasch
Message:

bugfix for previous revision (vector directive was changed by mistake)

File:
1 edited

Legend:

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

    r4429 r4432  
    2525! -----------------
    2626! $Id$
     27! bugfix for previous revision (vector directive was changed by mistake)
     28!
     29! 4429 2020-02-27 15:24:30Z raasch
    2730! statement added to avoid compile error due to unused dummy argument
    2831! bugfix: cpp-directives added for serial mode
     
    22732276
    22742277                IF ( i == nxl_mg(l) )  THEN
    2275                    !DIR$ IVDEP       INTEGER(iwp) ::  ngp       !<
    2276 
     2278                   !DIR$ IVDEP
    22772279                   DO  k = nzb+1, ind_even_odd
    22782280                      p_mg(k,j,nxr_mg(l)+1)  = temp(k,j1,ixr+1)
Note: See TracChangeset for help on using the changeset viewer.