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_up.f90

    r3547 r3636  
    2525! -----------------
    2626! $Id$
     27! nopointer option removed
     28!
     29! 3547 2018-11-21 13:21:24Z suehring
    2730! variables documented
    2831!
     
    133136       REAL(wp) ::  vkomp !< advection velocity along y-direction
    134137       REAL(wp) ::  wkomp !< advection velocity along z-direction
    135 #if defined( __nopointer )
    136        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !< treated scalar
    137 #else
     138
    138139       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk !< treated scalar
    139 #endif
    140140
    141141
     
    213213       REAL(wp) ::  wkomp !< advection velocity along z-direction
    214214       
    215 #if defined( __nopointer )
    216        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !< treated scalar
    217 #else
    218215       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk !< treated scalar
    219 #endif
    220216
    221217
Note: See TracChangeset for help on using the changeset viewer.