Ignore:
Timestamp:
Dec 19, 2018 1:48:34 PM (3 years ago)
Author:
raasch
Message:

nopointer option removed

File:
1 edited

Legend:

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

    r3547 r3636  
    2525! -----------------
    2626! $Id$
     27! nopointer option removed
     28!
     29! 3547 2018-11-21 13:21:24Z suehring
    2730! variables documented
    2831!
     
    136139       REAL(wp)     ::  gv  !< local additional advective velocity
    137140
    138 #if defined( __nopointer )
    139        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !<
    140 #else
    141141       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
    142 #endif
    143142 
    144143
     
    207206       REAL(wp)     ::  gv  !< local additional advective velocity
    208207
    209 #if defined( __nopointer )
    210        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !<
    211 #else
    212208       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
    213 #endif
    214209
    215210
Note: See TracChangeset for help on using the changeset viewer.