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

    r2718 r3636  
    2525! -----------------
    2626! $Id$
     27! nopointer option removed
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    205208       REAL(wp) ::  fmax_l(2) !<
    206209       
    207 #if defined( __nopointer )
    208        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !<
    209 #else
    210210       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
    211 #endif
    212211
    213212       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  a0   !<
Note: See TracChangeset for help on using the changeset viewer.